# this splits the e-mail by @ and puts it into a list. # That contains now {gregor lanifex.com} set mail_result [split $mail @]