My Perl Geek Code

—–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—OLJ++Ee—Ev*Eon uL+w m!
——END PERL GEEK CODE BLOCK——