($tag_nam, $tag_att, $tag_seq, $tag_raw) = @{ $tok_inf } ;