While i'm certain you can do much better,

here's what my spin would be:

$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++$;+$;++- --$|
[download]

hmm, that's probably easier to read. *sigh* oh well, it was fun...

jynx