Select Code to Download

{
    # reduce bogus warnings
...
    $tokenizer->get_token() until
        ($token_type eq 'control' and $argument eq 'par');
}

my @tokens;
{
...
      push @tokens, [$token_type, $argument, $parameter];
    } until ($token_type eq 'control' and $argument eq 'par');
}