Select Code to Download

$a = '059057034037063107105003046039039036107063035046';

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