If you're sure of the table format...

while       # use a loop to grab all instances
(m|         # use pipes to delimit, so no escaping /
<tr         # beginning of row
.*?         # minimal match of anything
>(\d{5})    # > followed by 5 digits (remember digits)  
.*?         # minimal match of anything
>(\d{2})    # > followed by 2 digits (remember digits)  
.*?         # minimal match of anything
>(\d{3})    # > followed by 3 digits (remember digits)  
.*?         # minimal match of anything
>(\d{3})    # > followed by 3 digits (remember digits)  
.*?         # minimal match of anything
>(\d{2})    # > followed by 2 digits (remember digits)  
.*?         # minimal match of anything
(&nbsp;|\w) # &nbsp; or a letter
</FONT>     # followed by a closing font tag
|isxg) {    # case (i)nsensitive, treat as (s)ingle line,
            # e(x)tended comments, match (g)lobally (all)
    my @row = ($1,$2,$3,$4,$5,$6);
    # now do whatever with @row
}

# condensed

while(m|<tr.*?>(\d{5}).*?>(\d{2}).*?>(\d{3}).*?>(\d{3}).*?>(\d{2}).*?(
+&nbsp;|\w)</FONT>|isg) { 
    my @row = ($1,$2,$3,$4,$5,$6);
}
[download]

not tested, but I think it's OK :)

cLive ;-)