Select Code to Download

my $tag;
if($change){ #contruct modified tag
...
  # This is nice
  $tag = $token->[0] eq "T" ? $token->[1] : $token->[-1]; 
}