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