Help for this page

Select Code to Download


  1. or download this
    Use List::Util qw( sum );
    
    $count = sum map s/$foo/$bar/g, @array;