if($line =~ m/Wort/) {print "Gefunden\n";}