How about this?

my $var="1112223334445556667";
$var=~s/(\d{3})/$1\_/g;
my @nums=split(/_/,$var);
[download]