$/ = '';

while (<DATA>) {
   chomp;
   my ($name, $addr, $url) = split(/\n/, $_);
   
   print("name: $name\n");
   print("addr: $addr\n");
   print("url:  ", (defined($url) ? $url : '[undef]'), "\n");
   print("--\n");
}


__DATA__
Name
Address
URL

Name2
Address2

##</code><code>##

name: Name
addr: Address
url:  URL
--
name: Name2
addr: Address2
url:  [undef]
--