my @items = reverse unpack 'A'x(length $number), $number;

##</code><code>##

my @items = reverse unpack 'A3'x(length($number)/3), $number;