print qq{$1\n} while $str =~ m{(\d+(?:\s+\d+){0,19})}g;