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