Help for this page

Select Code to Download


  1. or download this
    my $tmp = $str;
$tmp =~ s/((?:\s*\d+){20})/$1\n/g;
print OUT "$tmp\n";
  2. or download this
    my $tmp = $str;
$tmp =~ s/\s*((?:\s*\d+){20})/$1\n/g;
print OUT "$tmp\n";