Forums Scripts & Popups Stripping the @1234abcd.com out of email.

Alias ChopMail {
  Var %r = $iif($isid,Return,Echo -at)
  If $1 {
    If $regex($1,/^(([^@]+)@[^$]+)$/i) { %r $regml(2) }
  }
}

OR

Alias ChopMail {
  Var %r = $iif($isid,Return,Echo -at)
  If $1 { %r $regsubex($1,/(@[^$]+)$/i,) }
}

OR

Alias ChopMail {
  Var %r = $iif($isid,Return,Echo -at)
  If $1 { %r $gettok($1,1,64) }
}