Select Code to Download

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

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

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