Select Code to Download

#000000000000001234567
>perl -e"print 4004>>1"

perl -le"print $^F,$|,(@_=($|.. ~~ map ord~$_,split//,~$^)[$|,$^F])"
perl -le'print $^F,$|,(@_=($|.. ~~ map ord~$_,split//,~$^)[$|,$^F])'
...
## works sometimes
perl -e"$a.=$_ for unpack 'c*',~$^V;@ARGV=sort(split//,$a);map pop, $^
+F+$^F..$#ARGV;print pop,shift,shift,pop"

perl -le"print $]<<$^F,$[,substr$]<<$^F,-2,1"
perl -le'print $]<<$^F,$[,substr$]<<$^F,-2,1'

perl -le"print $]<<$^F,$^F>>$],$^F>>$|"
perl -le'print $]<<$^F,$^F>>$],$^F>>$|'