#!perl
%names=();
while(<>) {
    @O = split(/\011/);
    $U = $O[2];
#    $U =~ m/([-a-z0-9]*)@/i;
    if ($U =~ m/([^: \011<>]*)@/i) {
#	print "$1\n";
	$names{$1} = 1;
    }
}

foreach (sort keys names) {
    print "$_\n";
}