## datei öffnen
my $template = 'test.txt';
my @ausgabe;

open(DATEI, "$template") || die "$template nicht gefunden"; 
my @ausgabe = <DATEI>;
close(DATEI);

## suchen , ersetzen
my $text = join("",@ausgabe);
$text =~ s/<!--te.+?st-->//g;


## ausgabe
my $fileout = 'test2.txt';

open(FILEOUT, ">$fileout") || die "Kann $fileout nicht schreiben!";
print FILEOUT $text;
close(FILEOUT);