Select Code to Download

my @ar = (); # empty array
while(<>){
...
   my ($name, $email) = split/\t/;
   print OUT qq(<a href="mailto:$email">$name</a><br />\n);
}

while(<>){
   if(/<a href="(mailto:)?([^"]*)">([^<]*)<\/a>/){
...
      warn "Err: $_\n";
   }
}