$tok_inf = $tok_par->get_token ;

##</code><code>##

$tok_typ = shift @{$tok_inf};

##</code><code>##

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

##</code><code>##

$title =  $tok_par->get_text() || "<NO TITLE FOUND>";