perl -e 'my $type="blee"; if ($type ne "newer" and $type ne "older") { print "bad type\n"; print "blee\n"}'