Tcl user.
<tt> if {$contact == "required"} {
set email "[join $firstName $lastName {.}]@[join qldcom com au {.}]"
} else {
return "Have a nice day ;-)"
} </tt>