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) }
}