use strict; use warnings; use IO::File; open( INPUTFILE, $ARGV[0]) || die "Konnte die Datei nicht öffnen"; while(){ my $b = "/bla/"; # /bla/ /'bla'/ 'bla' "bla" usw geht alles nicht print $b,"\n"; my $a = grep {$_ = $b} ; # statt $b /bla/ funktioniert if ($a == 1) {print"Eintrag vorhanden!\n";} else{print"Keinen Eintrag gefunden!\n"}; } close( INPUTFILE );