Help for this page

Select Code to Download

Select or download this

my $re = quotemeta($str2);
if( $str1 =~ /^$re/ )
...
{
    print "nomatch\n";
}