$mytarget = "I am a perl program";
$mystring = "Perl";
if ($mytarget =~ m/\Q$mystring\E/i)
     {       
         print "It matches: ${^MATCH}\n";   
     }   
  else {       
         print "It doesn't match\n";    
    }