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