Zeilen löschen in Perl

[Vendar]

Hi zusammen,

ich lösche auf folgende Weise ein Zeile in Perl:

sub delete_case
{
open(FILE,"< X") or die " $!\n";
open(TEMP,"> x_temp") or die "$!\n";
while (<FILE>)
{
                        if($_ =~ /^BLABLA/)
                        {
                        next;
                  }
        print TEMP $_;

}

close(FILE) or die "$!\n";
close(TEMP) or die "$!\n";
unlink("X");
rename("x_temp","X");
}

Aber irgendie glaub ich dass das noch optimaler geht. Hat jemand ein Tipp?

cu,
Vendar