http://www.perlmonks.org?node_id=811056


in reply to Do you have a middle name?

Yes, but I don't use it.


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