$ perl -wle 'print join "", reverse unpack("(A2)*", "1234567890")'
9078563412