use File::Find;
$ct = 0;

sub fetcher
{
     if( $_ =~ /\.html?$/)
        {
       my $name = $File::Find::name;
       open ( F, $name ) or die "$!: $name\n";
       while( $line = <F> ) 
        {
            for $i ($line =~ /\@(?:ff|jj|bb)/g)
        {
             print "$i\n";
            $ct++;
        }
             }
      close F;
   }
}


find( \&fetcher, 'C:\\inetpub\\wwwroot' ) || warn "$!\n";

print "\n\nTotal Count = $ct\n\n";