#!/usr/bin/perl -w
#by Torben Menke
#http://www.entorb.net
# parameter: text file containing Vorname\tName\tMail
# greated by copy and paste from Excel or OpenOffice
# outout: List: Vorname Name <Mail>
#


use strict;
use warnings;
use Data::Dumper;

my $s;
my @l;

open (FILE, "< ".shift @ARGV) or die $!;
my @lines = <FILE>;
close(FILE);

@lines = grep {m/@/} @lines;

my @list;
foreach my $line (@lines) {
$line =~ s/["']+/ /g;
$line =~ s/[<>]+/ /g;
$line =~ s/\s+/ /g;
$line =~ s/(^\s*|\s*$)//g;
next unless ($line =~ m/^(.*?)([^\s]+)$/);
my $name = $1;
my $mail = $2;
next unless ($mail =~ m/@/);
push @list, "$name <$mail>";
}
@list = sort @list;
print "\n" , join "\n", @list, "\n";

---

Hope you found what you where looking for. Feel free to drop me a line
Torben