#!/usr/bin/perl -w
use strict;

=head1 Hi 

=head2 I don't know much about pod  documentation, but try I do 

=head2 head  tags,  lists,  markup,  and =cut tags is all it is.

=head2 With  each  obfu I decide to learn some new trick or two.

=cut

=head2 

=head2 The   usual   idea  is  to   print   that  "famous line".

=head2 Printing   it  here   would  make   you  think,   "easy".

=head2 This probably will be one  of  the   easier  obfusations.

=head2 I    often   wonder    how    it   will    be   recieved.

=head2 Will     it    be     too     large     or    sophmoric?? 

=head2 I  hope  not. Though, we  had better  see  some code soon 

=cut

$^X=1;map{$,=\@_;open(F,$0);;map{m/^=/?push(@,,$_):$,++;}(<F>);;
map{s/ //g;}@,;my @r;my $i=0;;map{map{$r[$i]++;}split//;$i++;}@,
;$i=0;my $l='A';map{$_==5?$_=-33:$_=$_;;$i==10?$_=0:$i++;$i++;;;
print chr(ord($l)+$_);}@r;}(1..$^X);

=head1 map{ map }

=head2 I   seem  to    get    a     little     carried     away.

=head2 map{this}  &&   map{that}.   Some  "special"   vars  too. 

=head2 Just   for    good    measure.   That's    all,   really.

=cut

=head1 

=head2 perlmonks        is         the       best        place..

=head2 Obfuscations        are        good       for       xp...

=head2 But    only     if    they're     actually    obfuscated. 

=head2 Is     this    one    really     that     hard?     Well, 

=head2 I'll  leave  that  up  to  you  to decide. Any thoughts??
[download]