$ perl -le'
for ( qw/ ABCXYZ FOOXXXYZ FOOXXXBAR FOOXXXBAZ / ) {
    print if /^FOO.*(?<!BAR|BAZ)$/;
    }
'
FOOXXXYZ