Why split, when you can match

my @nums = ("123456789" =~ /(\d{3})/g);
print "$_\n" for @nums;

output -
123
456
789
[download]

I've found this to be yet another handy feature of regexp matching, and great for the likes of map and foreach.
HTH

broquaint