$str =~ /\Q$substr\E/