Select Code to Download

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

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

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

    my $attributes = $token->attr;