Select Code to Download

perl -d filename.pl

W $_

my(@f,@c,@w);@a=@f=<DATA>;seek(DATA,0,0);@c=<DATA>;
until(($_=pop(@c))=~/^_/){};unshift(@a,$_);for(1..3)
...
{$w[$s+15-$_]=(($w[$s]eq",")?".":$w[$s]);$s++;}
for(1..75){unless($w[$_]ne''){$w[$_]=$w[($_-1)];}}
print(join"",@w);print"\n";}print@a;

my(@f,@c,@w);
@a=@f=<DATA>; #Read everything from __DATA__ onward into
...
print"\n"; #goto next line, Lather, rinse, repeat.
}
print@a; #Finally, print the __DATA__ label, and original DATA content
+s

__DATA__
llllllllllllllllllllllllllllllllllllllllllllllllllllllllllll
...
llllllllllllllllllllllllllllllllllllllllllllllllllllllllllll
llllllllllllllllllllllllllllllllllllllllllllllllllllllllllll
llllllllllllllllllllllllllllllllllllllllllllllllllllllllllll