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


in reply to Re^2: A better way to make the script run faster?
in thread A better way to make the script run faster?

See tobyink's answer below.

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