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

With a big thanks to Jenda for noticing this perl syntax,

($_=Just,$\="l hacker")=~(S_&&y,Jk csluath, hate Porn,),print, ($_=Just,$\="l hacker")=~($_&&y,Jk csluath, hate Porn,),print,