while ($data =~ /\G(.*?<br>)(\d{5})/ig) {