D'oh! Sorry about the lack of formatting on that one. It should have read

LOOP:  while (<INFILE>) {
    next LOOP if /^%/;
    #process segment here
}

Hope this helps, and that it shows up right this time.

Egg, YAPH-and-BOFH-wannabe