-----BEGIN PERL GEEK CODE BLOCK-----
Version: 0.01
P++>++++c-->+(---)@P6-R+++M+>++O++MA++E
>+++PU >++BD C-(++)@D-S++X+WP+>+++MO?PP
(+++)@n!( )@CO?(!)@PO->+o+++G
>+A-OLC+OLCC-->+OLJ--OLP+OLL---(--)@OLA
--Ee---(-)@Ev+>++Eon!(
)uL++uB+uS+uH+w-m!
------END PERL GEEK CODE BLOCK------
[download]

--BEGIN PERL STYLE GEEK CODE BLOCK--
v1017053040++;
use vars qw/It(=4?)! Os1 ;0 B1+ L1+ C2 P0+ N! R0~ main-!sub/;
@S=('1.1(0)',,.1,,['1(0?).1',,(1)x3],1.1,
[('1?.1?')x3,1.1],[('1?.1?')x3],(1.1)x4,('1?.1?')x2,
(1.1)x2,1.1,,'1.1 1.1',1.1,[0.1,1.1],(1.1)x4);
%V=(l=>en,c=>2,a=>1,p=>{s=>-1,h=>0,a=>1},r=>0,d=>2);
%H=(s=>1,w=>2,T=>+0,d=>+0,a=>0);
---END PERL STYLE GEEK CODE BLOCK---
[download]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.