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