Help for this page

Select Code to Download


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