use warnings;
use strict;

$/ = '';
while (<DATA>)
  {
  m|\G[\n\s]*(.*?)<br />[\n\s]*(.*?)(?:<br />[\n\s]*(.*?))?(?:<br />){2}[\n\s]*|isg;
  my $url = $3 || "";
  print "Name: $1\nAddr: $2\nURL: $url\n\n";
  }