Help for this page

Select Code to Download

Select or download this

Use List::Util qw( sum );

$count = sum map s/$foo/$bar/g, @array;