$ echo "12345678 123456789" | perl -lne'print join q[ ], unpack q[(a2)*], $_' 12 34 56 78 12 34 56 78 9