Удаление строк в файле на perl

[pikasun]

Требуется на perl удалить все строки в файле между двух меток #START и #END

#START
bla bla
bla
#END

 

[jami]

#!/usr/bin/perl -w
use strict;

my $file = shift || "./in.txt";
my $outfile = shift || "./out.txt";

open IN, "<", $file;
my @all = <IN>;
my $st = join "", @all;
$st =~ s/^(.*#START)(.*)(#END.*)$/$1$3/s;
open OUT, ">", $outfile;
print OUT $st;
close OUT;
close IN;

Код проверил у себя, вроде работает