/\Q$foo\E/ and print "$&\n";

  s/\Q$foo\E/XYZ/;