[Tcl] user.
<<categories>> Person
set email "[join $firstName $lastName {.}]@[join qldcom com au {.}]"