s/\A (?:$line_regex){0, $header_lines}   //x;

##</code><code>##

chomp $whole_input;
parse( $_ ) for split /\n/, $whole_input;