Помогите пожалуйста. Начала осваивать Perl, написала программку и что-то не так. Смысл был в том, чтобы при помощи регулярных выражений is поменять на at и перезаписать исходный файл с полученным результатом. Файл вообще не переписывается, а всё напрочь стирается. Подскажите, где что не так.

#!/usr/bin/perl -w

use diagnostics;
use warnings;
use strict;

open (FILE, '>>apple.txt');
while (<FILE>){      
s/is/at/;                      # Substitute 'is' for 'at'
print FILE;
close (FILE);   
}