$ perl -le '/^FOO(?!BA[RZ]\b).*$/ and print for qw/FOOBAR FOOBARS FOOBAZ FOOBAZS FOOQUX FOO/'
FOOBARS
FOOBAZS
FOOQUX
FOO