while ( my $token = $parser->get_token ) {
        if ( tokens_are_the_same($token, $CONFIG{stack}[0]) ) {
            $parser->unget_token( $token );
            my ($html_chunk,$matched) = stack_match_or_current( $parser );
            $html .= $html_chunk;
            $REPLACEMENTS{$file} += $matched;
        }
        else {
            $html .= $token->as_is;
        }
    }