#!/usr/bin/perl -wl
use strict;

while (<DATA>) {
    my $wanted;
    if (($wanted) = $_ =~ m/^gif"><\/td><td>(?:<b>)?([A-Z0-9\(\)\[\]]+?)<\/td>/) {
        print $wanted;
    }
}


__DATA__
gif"></td><td>XXX</td></tr>
gif"></td><td>XXX</td></tr>
gif"></td><td><b>XXX</td><td><b>yyy</td></tr>