#! perl -slw
use strict;
use Data::Dump qw[pp];

while( <> ) {
     my %record = m[
        <strong>([^<]+?):</strong>.+?
        >\s*([^<]+?)\s*</(?:a|td)>
    ]xg;
    pp \%record;
}