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