Well, it was "fun" to create, might not be as fun to read. Apologies in advance, but hey.. that's what the vote button is for. ;)
#!/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??
It's kind of long, so I hope those readmore tags worked.. I tested this on win32 (5.8.0 - Yes, I upgraded..) and Red Hat 5.6.1, just fyi.
One4k4 -
perlmonks@poorheart.com (
www.poorheart.com)
