Select Code to Download

if ( 0 == index $str1, $str2 )
{
...
{
    print "nomatch\n";
}

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