my $ex= quotemeta(".example.com");
# ...
    if(  /@(?!bar$ex$)$ex$/  ) {