Select Code to Download

<h3>AAA 28/07/2018</h3><table><tr><td>1351</td><td>990</td><td>783</td
+><td>523</td></tr></table><h3><table><tr>BBBBB 01/08/2018</h3><td>236
+</td><td>002</td><td>121</td><td>266</td></tr></table><h3>KK K P 25/0
+7/2018</h3><table><tr><td>200</td><td>3345</td><td>667</td><td>137</t
+d></tr></table>

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