print "\nvergleich: $_, str1: $str1.";
	if($_ =~ $str1){...}