#!/usr/bin/perl -l

use strict;
use warnings;

while (<DATA>) {
    chomp;
    s/(?:COMMENT|[&\\_@])//g;
    my @data = split /:/;
    print '<tr class="', $data[0] ? 'norm' : 'bold', '">',
          '<td>', join('</td><td>', @data[1,2]), '</td>',
          '<td><a href="#', $data[3], '">', $data[4],
          '</a></td></tr>';
} 

__DATA__
0:A:B:frag1:name1
1:C:D:frag2:name2
0:E:F:fr&ag3:naCOMMENTme3
1:G:H:fr\ag4:_name4
0:I:J:fr@ag5:name5

##</code><code>##

<tr class="bold"><td>A</td><td>B</td><td><a href="#frag1">name1</a></td></tr>
<tr class="norm"><td>C</td><td>D</td><td><a href="#frag2">name2</a></td></tr>
<tr class="bold"><td>E</td><td>F</td><td><a href="#frag3">name3</a></td></tr>
<tr class="norm"><td>G</td><td>H</td><td><a href="#frag4">name4</a></td></tr>
<tr class="bold"><td>I</td><td>J</td><td><a href="#frag5">name5</a></td></tr>