AAA 28/07/2018

1351990783523

BBBBB 01/08/2018
236002121266

KK K P 25/07/2018

2003345667137
#### if ($line =~ /

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