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"