my ($local_part) = $mail =~ '^([^@]*)';