Forum OpenACS Q&A: Response to TCL string manipulation problems (sorry for bothering)

regexp "(.*)@(.*)" $mail dummy first second

Should do the trick and its only 1 line :)