Select Code to Download

#!/usr/bin/perl -wl
use strict;
...
gif"></td><td>XXX</td></tr>
gif"></td><td>XXX</td></tr>
gif"></td><td><b>XXX</td><td><b>yyy</td></tr>

(?:<b>)?

([A-Z0-9\(\)\[\]]+?)