if ( $token->[0] eq 'S' and $token->[1] eq 'form' ){...}

##</code><code>##

    if ( $token->is_start_tag( 'form' ) ){...}

##</code><code>##

    if ( $token->is_comment ){...}

##</code><code>##

    my $attributes = $token->attr;