Defender of the Light wrote:
[snip]

$a=24;split//,240513;s/\B/ => /for@@=qw(ac ab bc ba cb ca
);{push(@b,$a),($a-=6)^=1 for 2..$a/6x--$|;print "$@[$a%6
]\n";((6<=($a-=6))?$a+=$_[$a%6]-$a%6:($a=pop @b))&&redo;}

Uh... And a Great Googly Moogly to you too...   <.<;;

Perl poetry is one of those truly arcane things not many people
comprehend . . . including myself, and I do a fair bit of programming
in Perl.  I had thought it was supposed to actually parse, though,
which the above sample does not, at least in Perl v5.6.1.

My poetry does so parse! :P

|  [Windows 95] C:\WINDOWS>perl -c -
|  $a=24;split//,240513;s/\B/ => /for@@=qw(ac ab bc ba cb ca
|  );{push(@b,$a),($a-=6)^=1 for 2..$a/6x--$|;print "$@[$a%6
|  ]\n";((6<=($a-=6))?$a+=$_[$a%6]-$a%6:($a=pop @b))&&redo;}
|  __END__
|  - syntax OK
|  
|  [Windows 95] C:\WINDOWS>

This is with the ActiveState distribution of perl 5.6.1, build number
631.

-- 
$a=24;split//,240513;s/\B/ => /for@@=qw(ac ab bc ba cb ca
);{push(@b,$a),($a-=6)^=1 for 2..$a/6x--$|;print "$@[$a%6
]\n";((6<=($a-=6))?$a+=$_[$a%6]-$a%6:($a=pop @b))&&redo;}

             .---Anime/Manga Fanfiction Mailing List----.
             | Administrators - ffml-admins@anifics.com |
             | Unsubscribing - ffml-request@anifics.com |
             |     Put 'unsubscribe' in the subject     |
             `---- http://ffml.anifics.com/faq.txt -----'