Select Code to Download

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

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