#!/usr/bin/perl

use strict;
use warnings;

my $file = './test.txt';
my $content;

{
  local $/;
  open(my $fh,'<',$file) or die $!;
  $content = <$fh>;
  close $fh;
}

$content =~ s/#String:.*?sa\d{3}s\d{2}\n?//sg;

open(my $fh_w,'>',$file) or die $!;
print $fh_w $content;
close $fh_w or die $!;

#!/usr/bin/perl

use strict;
use open ':utf8';

binmode (STDOUT, ":utf8");


use vars qw(@zeile $i $k);

open (FH, "<adult1ru_utf8.neg") or die "NEG nicht da\n";

while (<FH>){
   chomp ($zeile[$i++] = $_);
   if ($zeile[$i-1] =~ /sa[0-9]{3}s[0-9]{2}/){print "$zeile[$i-2]\n";}
   }

close (FH);

#!/usr/bin/perl                            
                                           
use warnings;                              
use strict;                                
                                           
open(EIN, "<Eingabedatei.txt") or die $!;  
                                           
my %pnr;                                   
                                           
while(<EIN>) {                             
  chomp;                                   
  my $f = $_;
  $pnr{$f} = 1;                         
} # while                                  
                                           
close(EIN) or die $!;                      
                                           
                                           
open(EIN2, "<Eingabedatei2.txt") or die $!;
open(AUS, ">Ausgabedatei.txt")   or die $!;
                                           
while(<EIN2>) {                            
  my $vergleich = $_;
  print AUS $_ if defined $pnr{$vergleich};
} # while                                  
                                           
close(EIN) or die $!;                      
close(AUS) or die $!;                      
                                           
1;