Help for this page

Select Code to Download


  1. or download this
    do {$count = () = $s/PATTERN/REPLACEMENT/g; $acc += $count} for @array
+;