in reply to How to reverse for each 2 character ?
$ perl -wle 'print join "", reverse unpack("(A2)*", "1234567890")' 9078563412 [download]
Or you could scalar reverse the binary data before unpacking it, that should give the same result.