open FILE, "<datei.txt" or die "kann datei nicht oeffnen\n";
my $print = 0;
while ( my $line = <FILE> ) {
    $print = 1 if $line =~ /#vermerk[12]/;
    print $line if $print;
}
close FILE;