Too much time this morning...

undef$/;@%=split+q<\s*|>=>
<o>;pop@%=>@$=map{abs ord(
q NAN)-ord}'A'..'Z';%==()=
map{for($==$_;$=<@%;$=+=@$
){$@[@@]=$%[$=]=>(@@==sqrt
$#$)?do{;print+pack+(pack+
chr 9.9*length'Perl Rocks'
=>@%-$#$-sqrt$#$),join+q@@
=>@@[@@-length'crt'..$#{@}
];undef@@}:1}}@$;INIT{*{o}
=*C=*R=*T=*DATA=>$C,$R,$T}
__END__ ;c)~ crt@kiski.net
&&&&&&&&&&&&&&&&&&&&&&&&&&
##########################
01110011111100111000011100
71113911100138010379900111
47562701641420148227971403
[download]

Enjoy!

--
Casey
   I am a superhero.