OT, a good way to test patterns like these is:

perl -lne 'print /^.+\.(?!br|com|net|org)\w+$/ ? "spam" : "ok"'
[download]

Every line of input will be tested, so you can try out various email addresses to see if it matches properly

Maybe you already knew the -n option, but I thought I'd mention it in case you don't