if ($text =~ /.*\Q$stub\E.*/s)
{ 
  #do something
}