($istrue) or { print "this is bad"; next; }

 ($istrue) or print "this is bad", next;