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