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