my $a = grep {$_ = $b} <INPUTFILE>;	# statt $b /bla/ funktioniert