Expounding on Malte's suggestion, you can do this:
db_multirow users fetch_users { select email from parties } { regsub (.*)@(.*) $email {\1 at \2} email }
This changes the value of the email variable in the multirow and you would not need to run any Tcl in your adp.
In other words, @users.email@ would contain "ache9829 at mail.usyd.edu.au" in your case. No Tcl needed.
Hope this helps.
i just saw ur post now
:) problem is solved , look like the better way of doing it
thanks