Select Code to Download

#!/usr/bin/perl 
{{{{THE:{{{{END:{{{{IS:{{{{THE:{{{BEGINNING:{{{{IS:{{{{THE:{{{{END{{{{
...
));
__DATA__ _____________________________________________________________
,`````'X``````/\#`Toto, I've a feeling we aren't in Kansas anymore...`

eval((eval(join'',join'',map{unpack'C/(C.*/X/xa@)'}split/\n/,<<'MAGIC'
"BC8D%5/.31420-A69=(#:*$+<@;?)&',>7""$''((*,,;<=>AADTaaabchijkmnopsu{"
">DC95'A<?36;(%B&-#4*.=@8)$2+/0,17:$$''((())),,,1?_aacccdehknoppruuv{"
...
MORE MAGIC
));
undef->("Just another Perl hacker\n");

&Internals::SvREADONLY(\undef,0); undef=sub{print$_[0]; undef;};

my $h = undef;
$h->("Just another Perl hacker\n");

my $string = q|=pod
=cut
...

my $h = undef;
$h->("Just another Perl hacker\n");

my $string = q|=pod
=cut
...

$string = join('', map{ uc chr( ord($_) ^ 64 ) } split(//, $string));
# $string is $SPW&VTV!P$SSVUWTW!PVRYT%VTWUVRW%VQV#VSW!S!SSUVWRUUTQTTT&
+T%T#TYUXR#UUW%VTVUVVV#RPSYR"SPRUW%VTVUVVV$SSWUWRV"WPWRWYV%VTWTR&U"UPS
+$U"SPRUW%VTVUVVV"S$W"S

no warnings 'qw'; # shut up Perl... I'm a big boy now!
my $chars = '';
...

$chars = pack 'u', $chars;
# $chars is ,`````'X``````/\#

my $sub = sub{ pack "h*", join('', map { vec(unpack('u',",`````'X`````
+`/\\#"), ord $_, 1) ? chr(ord $_ ^ 64) : '';} split //,$_[0]); };

my $sub = sub{ pack "h*", join('', map { vec(unpack('u',",`````'X`````
+`/\\#"), ord $_, 1) ? chr(ord $_ ^ 64) : '';} split //,$_[0]); };

...

my $h = undef;
$h->("Just another Perl hacker\n");

my $sub = q|sub{$a=<DATA>;pack("h*",join('',map{vec(unpack('u',$a),ord
+($_),1)?chr(ord($_)^64):''}split//,$_[0]))};|;

my $sub;
$sub .= join'',unpack'C/(C.*/X/xa@1)',q`"BC8D%5/.31420-A69=(#:*$+<@;?)
+&',>7""$''((*,,;<=>AADTaaabchijkmnopsu{`;
...

__DATA__
,`````'X``````/\#

eval (( eval pack "A*", join '', map { unpack 'C/(C.*/X/xa@1)' }
split /\n/, <<'SUB'
...

__DATA__
,`````'X``````/\#

#!/usr/bin/perl 
{{{{THE:{{{{END:{{{{IS:{{{{THE:{{{BEGINNING:{{{{IS:{{{{THE:{{{{END{{{{
...
));
__DATA__ _____________________________________________________________
,`````'X``````/\#`Toto, I've a feeling we aren't in Kansas anymore...`