if ($line =~ /<h3>BBBBB .*?<td>(\d{3})<\/td>/g) {
    print "$1\n";
}