$q="WillIHackSomethingNew"; @@=( ' u sj ', ' ', ' t ', ' ', ' e r a n ', ' ', 'p err e ho t', ' k c ', ' l ', ' ', ' h a ') ;$==$-=$^F;$=*=$==++$=;map{ $..=substr$@[$;],$=,1;$;+=! ($_=(ord)%4)?$-:$_-$^F?q::: -3;$=-=/3/?3:/1/?-$-:q;;}$q =~m;.;g;print join"$\"$\"", $.=~/./g,chr++$;+$;++- --$|