The regexp you want is:

my @ar = (); # empty array
while(<>){
   #for every match in the line 
   #(if there are more than one email in a line)
   while(/<a href="(mailto:)?([^"]*)">([^<]*)<\/a>/g){ 
      push @ar, "$3\t$2";
   }
}
open ...
for(sort @ar){
   my ($name, $email) = split/\t/;
   print OUT qq(<a href="mailto:$email">$name</a><br />\n);
}
[download]

Update: If you have only one link perl line, you can do this:

while(<>){
   if(/<a href="(mailto:)?([^"]*)">([^<]*)<\/a>/){
      push @ar, "$3\t$2";
   } else {
      warn "Err: $_\n";
   }
}
[download]

Hope this helps,,,

Aziz,,,