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


in reply to Avoiding silly programming mistakes

Yesterday I had a 'DOH' moment twice. One moment twice? Yes ;-) The second one was a deja-vu because it was the same mistake in the same sub at another position.

What I learned from it is: NEVER EVER use if ( $somevariable ) if you really wanted if ( $somevariable ne '' )


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