$number = "@{[unpack '(A4)*', $number]}";