print "Found $1 at line $.\n"
  if s/^[-\w]+:\s*(.*?)\s*$/($address)=(Mail::Address->parse($1))->address/eggs;
      # and spam