print "Found" if $string =~ /\Q$substr/;