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

##</code><code>##

#volatile scalar
$stub = 'bob(scalar)';