{
    # reduce bogus warnings
    no warnings 'uninitialized';
    

    # get past the header
    ( $token_type, $argument, $parameter ) =
    $tokenizer->get_token() until
        ($token_type eq 'control' and $argument eq 'par');
}

##</code><code>##

my @tokens;
{
    # reduce bogus warnings
    no warnings 'uninitialized';
    

    do {
    # get past the header
      ( $token_type, $argument, $parameter ) =
      $tokenizer->get_token();
      push @tokens, [$token_type, $argument, $parameter];
    } until ($token_type eq 'control' and $argument eq 'par');
}