my $a = '059057034037063107105003046039039036107063035046';
my @nums = split /(\d{3})/g,$a;

##</code><code>##

my @nums = grep $_,split /(\d{3})/g,$a;

##</code><code>##

my @nums = $a=~/\d{3}/g;