do {$count = () = $s/PATTERN/REPLACEMENT/g; $acc += $count} for @array;