if ($string =~ /\Q$input{'variable'}/) {
#blah blah blah...
}