Select Code to Download

#!/usr/bin/perl                         
 use warnings;
...
                    (\@_, int map{(
                     int)x\$_}(1..$_ 
                      ))"}print eval$k

#!/usr/bin/perl

...
-245,-250,-264,-298,-403,-361,-399,-429,-454,-494,-516){$_[$i++]+=$v}j
+oin"",map
{chr}@_;';foreach (reverse (12..35)){$k="sub{$k}->(\@_,int map{(int)x\
+$_}(1..$_
))"}print eval $k;