if ($a =~ /\Q$b\E/) {
# . . . 
}