#!/usr/athena/bin/perl

$namedebug = 1;
$foo = " ";
$bar = " ";

    $foo = 'foo@Bar.Org ("Jane Doe")';
    $bar = &namestrip($foo);
    $foo = &namestrip('whh@rain.org');

    &namestrip('Amy Sheldon <ais3@po.cwru.edu>');
    &namestrip('70540.1522@compuserve.com (Eric Simon)');
    &namestrip("\"Jahnke, Bart\" <bjahnke@arrl.org>");
    &namestrip("\"Keith P. Johnson\" <keefer@rahul.net>");
    &namestrip("2429oconnorw@vms.csd.mu.edu (Bill O'Connor)");
    &namestrip("Alf the Poet <piz!alf@afs.com>");
    &namestrip("ucsd!rational.com!jgp@uunet.UU.NET (Jim Pellmann)");
    &namestrip("blondin@rockies.dr.att.com (131H10000-BlondinDJ(DR8287)298)");
    &namestrip("aamir.zakaria@mcmail.vanderbilt.edu (Aamir Zakaria, M.D.)");
    &namestrip("bam+@cs.cmu.edu (Brad Myers)");
    &namestrip("foo%bar.edu@baz.edu (Obviously fake address)");
    &namestrip("gwu@esl.com (\"George J Wu\")");
    &namestrip("h+@metrowerks.com");
    &namestrip("fekete@bcuxs2.bc.edu (Zoli Fekete, keeper of hungarian-faq)");
    &namestrip("Frank.Kelly@cs.tcd.ie");
    &namestrip("amitcp@contessa.phone.net");
    &namestrip("ammar@mtu.edu (AL-Saegh, Ammar T.)");
    &namestrip("asdamick@unity.ncsu.edu (The BOB(c))");


sub namestrip {
    local($raw) = @_;
    local ($clean);

#   printf ("Raw: %s\n",$raw);
    $clean = $raw;
    $clean =~ s/\(.*\(.*\).*\)//;
#   printf ("C-0: %s\n",$clean);
    $clean =~ s/\(.*\)//;
#   printf ("C-1: %s\n",$clean);
    $clean =~ s/^.*\<//;
    $clean =~ s/\>.*$//;
#   printf ("C-2: %s\n",$clean);
    $clean =~ s/^ //g;
    $clean =~ s/ $//g;
#   printf ("C-3: %s\n",$clean);
    $clean =~ tr/A-Z/a-z/;
#   printf ("C-4: %s\n",$clean);
    if ($namedebug) {
        printf ("Old: -->%s<--\n", $raw);
        printf ("New: -->%s<--\n\n", $clean);
    }

    return $clean;
}