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"><td>] . join('</td><td>', split(/:/,$line)) . "</td><a href=#></a></tr>\n";
    }   

##</code><code>##

    DCMS_DEMO
    |-- DCMS_DEMO.config
    |-- DCMS_DEMO.html
    |-- de_top
    |   |-- Block_DV
    |   |   |-- Block_DV.config
    |   |   |-- Block_DV.html
    |   |   |-- rev1
    |   |   |   |-- rev1.config
    |   |   |   `-- rev1.html
    |   |   `-- rev2
    |   |       |-- rev2.config
    |   |       `-- rev2.html

##</code><code>##

    |-- DCMS_DEMO.config
    |-- DCMS_DEMO.html
    |-- de_top
    |   |-- Block_DV
    |   |   |-- Block_DV.config
    |   |   |-- Block_DV.html