#!/usr/bin/perl -w
use strict;

my %names;

while ( <> ) {
    s/\s+/ /ig;
    /<a href="(.*)">(.*)<\/a><br>/;
    # /<a href="(mailto:)??(.*)">(.*)<\/a><br>/;
    $names{"$2($1)"} = $1;
}

open OUT, ">sortboater.txt" or die "Cannot open file: $!";

for ( sort keys %names ) {
    /^(.*)\(.*\)$/;
    print OUT qq(<a href="mailto:$names{$_}">$1</a><br />\n);
}

close OUT or die "Cannot close file: $!";