$foo =~ s/\Q$find\$E/$replace/g;