LINE: for (;;) { statements; last LINE if $foo; next LINE if /^#/; statements; }