Re: Hits on a reg expression

[Mr. Muskrat]

Replace your for section with this and give it whirl.

my $total;
for(@files) {
    my $hits = () = $_ =~ /abcdef/g;
    print $hits,"\n";
    $total += $hits;
}
print "total: $total\n";

[Anonymous Monk]

Thanks it works great.