while (my $line=<$fh>) {
    chomp $line;
    for($line)
    {
    s/\&//g;
    s/[\\\_\@\_]//g;
    s/COMMENT//g;
    }
    my @data = split /:/, $line;
    my $class = $data[0] ? 'normal' : 'bold';
    print $fh_out qq[<tr class="$class">];
    for my $word(@data){ 
      print $fh_out '<td><a href="'
                   .$href_to_what{$word}
                   .'">'
                   .$word
                   .'</a></td>'; 
      } 
    print $fh_out "</tr>\n";
    }