Как удалить одну строку из файла с помощью Perl?

Я пытаюсь удалить одну строку из текстового файла. Вместо этого то, что у меня есть, стирает весь файл. Может ли кто-нибудь указать на ошибку?

removeReservation("john");

sub removeTime() {
    my $name = shift;

    open( FILE, "<times.txt" );
    @LINES = <FILE>;
    close(FILE);
    open( FILE, ">times.txt" );
    foreach $LINE (@LINES) {
        print NEWLIST $LINE unless ( $LINE =~ m/$name/ );
    }
    close(FILE);
    print("Reservation successfully removed.<br/>");
}

Образец файла times.txt:

04/15/2012&08:00:00&bob
04/15/2012&08:00:00&john