my @nums;
push @nums, substr($a, 0, 3, "") while length($a);

##</code><code>##

my @nums = $a =~ /(...)/g