<td class="alt1Active" align="right" id="f91"> 
  
		<div> 
			<a href="forumdisplay.php?f=91"><strong>forum title</strong></a> 
			 
		</div> 
		<div class="smallfont">sub-forum title</div> 
</td>

#!/usr/bin/perl 
use strict;  
#use warnings; 
  
use HTML::Parser; 
  
  
  
my $page = "C:/vb.html"; 
  
# création de mon parser 
my $parser = HTML::Parser->new(); 
  
# définition des mes evenements 
$parser->handler( text  => \&text,  "text" ); 
$parser->handler( start => \&start, "tagname,attr" ); 
$parser->handler( end   => \&end,   "tagname" ); 
   
$parser->parse_file($page); 
  
      
	my $i= 0; 
	my $nbre= 0; 
  
    sub start { 
        my ($tag, $attr) = @_; 
			 
         			 if ($tag eq 'td' and $attr->{class} eq 'alt1Active' ) 
			 { 
				$i= 1; 
				 
			 } 
  
			 
    } 
     
    sub end { 
        my ($tag) = @_; 
        
    } 
     
    sub text { 
		 
        my ($text) = @_; 
		if($i==1){ 
			$nbre++; 
			print "$nbre\n"; 
			print "$text\n"; 
			$i=0; 
		} 
		 
    }