I think this is perhaps a little more obfuscated ;-)

use strict;
sub _{"\t*".shift(@_)x$#_."*\n"}my @__=('A'..'Z',$",'&')
;sub __ {"\t*",$"x((@__-@_)/2),@_,$"x((@__-@_)/2),"*\n"}
s//-/; print _($_,@__), _($",@__), __(@__[10,4,8,19,7,26
,27]),__(@__[18,14,10,20,13,13,0]),_($",@__),_($_,@__);#
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print