open FH, "< $file"; while () { # for each regex for my $re ( keys %{ $compiled->{'rx'} } ) { $compiled->{'rx'}{$re}++ if /$re/; } } close FH;