in reply to wanting to make a file of strings usable by SQL

{
  local $/;
  $_= <>;
}
chomp;
s/\n/',\n'/g;
print q"('",$_,"')\n";

[download]
s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
+.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e

In Section Seekers of Perl Wisdom