perl -ne 'print join " ", sort unpack("A2" x (length()/2), $_)'