sub rout
  {
    local *FILE;
    if( $_ =~ /\.html?$/)
    {
       open ( FILE, $name );
       while($hit = <FILE>)
       {
             if( $hit =~ /%(?:ff|jj|bb)/ )
          {
             print "Hit = $1\n";
          }
       }
       close FILE;
      }
  }

  find( \&rout, "/disk1/disk2" );