Select Code to Download

@tokens = ...;
$tokens = join '', map { $tokenToChar{ $_->type } }, @tokens;
...
     my @captured = map { [ @tokens[ $-[$_], $+[$_] ] } 1..$#-;
     my ($head, $tail) = @catpured;
}