Non conosco il Perl quindi non poso aiutarti, ti faccio un esempio in ASP:
codice:
<%
strmail = request.form("mail")       'la variabile strmail assume il valore abcdefghi
strmail2 = strmail1&"@birikkino.com" ' la variabile strmail2 assume il valore di abcdefghi@birikkino.com
%>