@addresses = ; chomp @addresses; for ( @addresses ) { if ( /@(?!bar.example.com$)/ ) { # Fill in really cool regexp here print "$_ : match\n"; } else { print "$_ : fail\n"; } } __END__ smith@example.com jones@example.com jones@foo.example.com jones@bar.example.com jones@bar.example.com.com jones@baz.example.com