Select Code to Download

use strict;
use warnings;
...
    say $1;

}

$ perl6 -e 'say "79899920179".comb(/ (\d **? 2..*) <?{ $0 >= 32 }>/)'
79 89 99 201 79