use Data::Dumper qw/Dumper/;

print "meine Strings vor dem Vergleich: \n";
print Dumper $_;
print Dumper $str1;

if( $_ =~ m/$str1/ ) {
}