while (my $line = <INPUT>) {
    my ($time,$email,$name,@addr) = split(/\|/,$line);
    # use $email for cool stuff here
    # or add to an array for mailing.
}