Select Code to Download

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

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