while () { last unless /^/ .. /^MARKER/; $foo = $bar; }