$email = $q->param('email');
$email =~ s/[\x0d\x0a\t]//gs;