Select Code to Download

while (<FILE>) {
  chomp;
  my ($name, $address) = split /,\s+/, $_, 2;
  print "$name lives at $address\n";
}