while ($str =~ /\s*((\s*\d+){1,20})/g) {
    print "$1\n";
}