#!/usr/bin/perl

local $/="";

while (<DATA>) {
  my ( $name, $address, $url ) = split /<br \/>/, $_;

  print "Got $name $address $url\n";
}

__DATA__
Name<br />
Address<br />
URL<br /><br />

Name2<br />
Address2<br /><br />

##</code><code>##

#!/usr/bin/perl

local $/="<br /><br />";

while (<DATA>) {
  s/^\s*// && s/\s*$//;
  my ( $name, $address, $url ) = split /<br \/>/, $_;

  print "Got $name $address $url\n";
}

__DATA__
Name<br />
Address<br />
URL<br /><br />

Name2<br />
Address2<br /><br />