#!/afs/athena/contrib/perl/perl

## parameters

$nfields = 6;
$email_field = 4;

## code

while (<>) {
    chop;
    @foo = split(/\)\s+\(|\)\s+DOIT\s+\(/, ") $_ (");
    if ($#foo == $nfields) {
	local($email) = $foo[$email_field];
	if ($email && ($email !~ /[A-Z@]/)) {
	    print "$email\n";
	}
    }
}