use strict;
   use warnings;

   $/ = "<br />";
   my $i = -1;
   my @record;

   while(<DATA>) {
      chomp;
      if (/^$/) {
         $i = -1;
         next;
      }
      $record[++$i] = $_;
      print "@record\n" if ($i == 2);
   }

   __DATA__
Name1<br />Address1<br /><br />Name2<br />Address2<br />URL2<br /><br />Name3<br />Address3<br />URL3<br /><br />Name4<br />Address4<br /><br />