Gast+2008-07-14 13:45:33--
print "\nvergleich: $_, str1: $str1.";
if($_ =~ $str1){...}
???
RATEVERSUCHE
if($_ =~ /\Q$str1\E/){...}
NACHTRAG: und benutz mal den Data::Dumper Code den "der andere Gast" geschrieben hat.
TMTOWTDYOG (there's more than one way to dig your own grave)