$data =~ /----------</g;

##</code><code>##

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

##</code><code>##

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