Help for this page

Select Code to Download


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