if (/(\S+@\S+)/} {
  $email = $1;
}