if ($text =~ /\Q$stub/) {
    # Do something
}

##</code><code>##

if (index($text, $stub) >= 0) {
    # Do something
}