DB<109> $text=q{a'b"c}; print quotemeta($text)
a\'b\"c
  DB<110> $name="Daffy Duck";
 => "Daffy Duck"

  DB<111> print "'\Q$name\E' '\Q$text\E'"
'Daffy\ Duck' 'a\'b\"c'