my $result;
if( $aa =~ m/From:\s([^@]+)@/ ) {
    $result = $1;
    $result =~ s/\s</</g;
}