/@(?!bar\.).*\.example\.com$/

##</code><code>##

/@(?!bar\.example\.com$).*\.example\.com$/

##</code><code>##

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

##</code><code>##

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

##</code><code>##

/@(.*\.)?(?!bar\.)[^.]+\.example\.com$/

##</code><code>##

/@((.*\.)?(?!bar\.)[^.]+\.)?example\.com$/