look dude, u can use gettok, to not use $emailaddr too many times
this line
(~ $+ $remove($left($emailaddr,$pos($emailaddr,@,1)),@) $+ @ $+ $host $+ )
just shortened to this
$+($chr(40),~,$gettok($emailaddr,1,64),@,$host,$chr(41))
here, gettok get the first part of email, and dont need to remove, all the other part