%
% stack: [ [|]token . . . ] count
%
% if it contains single @ with chars to left and right
% parse as email
%
dup + -1 roll exch - exch
"@" second Str.Found 1 eq
{
%
% has a single @ symbol, already know no spaces in it
% see if @ suffix has period
%
 dup "@" right$ "." exch Str.Found 1 eq
 {
%
% acceptable email address
%
  dup !Cust.Email
 } if
} if
pop
%
% stack: [ [|]token . . . ] count
%