- or download this
/@(?!bar\.).*\.example\.com$/
- or download this
/@(?!bar\.example\.com$).*\.example\.com$/
- or download this
my $ex= ".example.com";
# ...
if( /@(?!bar\Q$ex\E$)\Q$ex\E$/ ) {
- or download this
my $ex= quotemeta(".example.com");
# ...
if( /@(?!bar$ex$)$ex$/ ) {
- or download this
/@(.*\.)?(?!bar\.)[^.]+\.example\.com$/
- or download this
/@((.*\.)?(?!bar\.)[^.]+\.)?example\.com$/