boredom is rampant today, here's my 15-minute TMTOWTDI:

#!/usr/local/bin/perl -w
use strict;
@$=qw/':&%C:V5R"@``%<&5R;`H`(86YO=&AE<@H`%:G5S=`H`/;$a.=$_
for reverse split//,unpack'u',"@$";($_,$a)=($a,$/);$a.=
reverse"$_ "for split/$a/;$_=$a,s/^\s+(.*)/$1\n/g;print;
[download]

enjoy :)
jynx

update: changed it to be strict compliant by the letter of the law (not the essence ;)