Select Code to Download

#!/usr/bin/perl -w
use strict;
...
# DATA contains the same words as in obfun.pl
# from the 22nd line onwards
__DATA__

@pc=qw(2+--+ 5| 5| 5| 5| -----+);
s/(\d)/" " x $1/e for@pc;
...
print join $/,@p,$/;
if($msg){print"$msg$/";$msg=""}}
__DATA__

#!/usr/bin/perl -w
use strict;
...
    }
}
print "\n";

while (<DATA>){
    chop;
...

$_ = join '', @original; # now $_ has the working code
eval;

$c=$=;$=/=$-=@_=qw(Nothing to hide);($m=$-)++;$c+=$-*$m;
while (<DATA>){
...
s($gs=~ /-/){@cp=@wcs{$x}){$msg="$mg[4] tem("clear")if $^O=~
tt: ","JOWBMJE JOQVUt}print$gs,"\n$mg[1]wd=join"",map{$grbl{
y]/;tr/[B-Z]/[A-Y]/;| 5| -----+);s/(\d)/

# map{unpack("c*",pack((pack"c",$c)."*",$_))} 
# map {hex $_}
# map {unpack("c", pack(____, $_))} # fill in the blanks!