if ( 0 == index $str1, $str2 ) { print "match\n"; } else { print "nomatch\n"; } #### if( $str1 =~ /^\Q$str2/ ) { print "match\n"; } else { print "nomatch\n"; }