$from =~ /^([^@]+)@/;
$from = $1;