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