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

##</code><code>##

$from =~ s/@.*//;