my $text_index;
if ($token->[0] eq 'T') {
    $text_index = 1;
} else {
    $text_index = -1;
}