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