#23456789_123456789_123456789_123456789_12345 perl -le'$=/=split//,revers;print$=--while$='