#000000000000001234567
>perl -e"print 4004>>1"
[download]

update: d'oh ;) now it does

perl -le"print $^F,$|,(@_=($|.. ~~ map ord~$_,split//,~$^)[$|,$^F])"
perl -le'print $^F,$|,(@_=($|.. ~~ map ord~$_,split//,~$^)[$|,$^F])'


perl -le"print $^F + join'',$^F,$|,($|.. ~~ map ord~$_,split//,~$^)[$|
+,~$0]"
perl -le'print $^F + join"",$^F,$|,($|.. ~~ map ord~$_,split//,~$^)[$|
+,~$0]'

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

update: and one or two more

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>>$|'
[download]

 

______crazyinsomniac_____________________________ Of all the things I've lost, I miss my mind the most. perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"