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>>$|'