For Lady_Aleena

my %string_eq = (
                 area   => ['nohref'],
                 form   => [qw[accept-charset action enctype method on
+reset onsubmit]],
                 frame  => ['noresize'],
                 head   => ['profile'],
                 input  => [qw[checked maxlength]],
                 label  => ['for'],
                 object => [qw[archive classid codebase codetype data 
+declare standby]],
                 option => ['selected'],
                 param  => ['valuetype'],
                 select => ['multiple'],
                 script => ['defer'],
                 table  => [qw[border cellpadding cellspacing frame ru
+les summary]],
                );

my %regex = (
             qr/^(?:a|button|form|frame|iframe|img|input|object|map
                |param|meta|select|textarea)$/x                     =>
+ ['name'],
             qr/(?:a|area|base|link)/                               =>
+ ['href'],
             qr/(?:a|area|base|link|form)/                          =>
+ ['target'],
             qr/(?:a|area|button|input|label|legend|textarea)/      =>
+ ['accesskey'],
             qr/(?:a|area|button|input|object|select|textarea)/     =>
+ ['tabindex'],
             qr/(?:a|link|button|input|object|param|script|style)/  =>
+ ['type'],
             qr/(?:a|link|script)/                                  =>
+ ['charset'],
             qr/(?:col|colgroup)/                                   =>
+ ['span'],
             qr/(?:meta)/                                           =>
+ [qw[content http-equiv scheme]],
             qr/^(?:a|area)$/                                       =>
+ [qw[coords shape]],
             qr/^(?:a|area|button|input|label|select|textarea)$/    =>
+ [qw[onblur onfocus]],
             qr/^(?:a|link)$/                                       =>
+ [qw[hreflang rel rev]],
             qr/^(?:body|frameset)$/                                =>
+ [qw[onload onunload]],
             qr/^(?:button|input|optgroup|option|select|textarea)$/ =>
+ ['disabled'],
             qr/^(?:col|colgroup|tbody|td|tfoot|th|thead|tr)$/      =>
+ [qw[align char charoff valign]],
             qr/^(?:del|ins)$/                                      =>
+ [qw[cite datetime]],
             qr/^(?:form|input)$/                                   =>
+ ['accept'],
             qr/^(?:frameset|textarea)$/                            =>
+ [qw[cols rows]],
             qr/^(?:frame|iframe)$/                                 =>
+ [qw[frameborder longdesc marginheight marginwidth scrolling]],
             qr/^(?:iframe|img|object)$/                            =>
+ ['height'],
             qr/^(?:iframe|img|object|table|col|colgroup)$/         =>
+ ['width'],
             qr/^(?:image|area|input)$/                             =>
+ ['alt'],
             qr/^(?:img|input)$/                                    =>
+ ['ismap'],
             qr/^(?:img|input|object)$/                             =>
+ ['usemap'],
             qr/^(?:input|frame|iframe|img|script)$/                =>
+ ['src'],
             qr/^(?:input|option|param|button|li)$/                 =>
+ ['value'],
             qr/^(?:input|select)$/                                 =>
+ ['size'],
             qr/^(?:input|select|textarea)$/                        =>
+ ['onchange'],
             qr/^(?:input|textarea)$/                               =>
+ [qw[onselect readonly]],
             qr/^(?:option|optgroup:)$/                             =>
+ ['label'],
             qr/^(?:style|link|form)$/                              =>
+ ['media'],
             qr/^(?:td|th)$/                                        =>
+ [qw[abbr axis colspan headers rowspan scope]],
            );

my %not_regex = (
                 qr/^(?:applet|base|basefont|bdo|br|font
                    |frame|frameset|head|html|iframe
                    |isindex|meta|param|script|style|title)$/x    => [
+qw[onclick ondblclick onkeydown
                                                                      
+onkeypress onkeyup onmousedown
                                                                      
+onmousemove onmouseout onmouseover
                                                                      
+onmouseup]],
                 qr/^(?:base|basefont|head|html|meta|param
                    |script|title|style)$/x                       => [
+qw[class style]],

                 qr/^(?:applet|base|basefont|bdo|br|frame|iframe
                    |frameset|param|script)$/x                    => [
+'dir'],
                 qr/^(?:base|head|html|meta|script|style|title)$/ => [
+'id'],
                 qr/^(?:applet|base|basefont|br|frame|frameset
                    |iframe|param|script)$/x                      => [
+'lang'],
                 qr/^(?:base|basefont|head|html|meta|param
                    |script|title)$/x                             => [
+'title'],
                );



push @attributes, @{ $string_eq{$element} } if exists $string_eq{$elem
+ent};
for my $regex (keys %regex) {
    push @attributes, @{ $regex{$regex} } if $element =~ $regex;
}
for my $regex (keys %not_regex) {
    push @attributes, @{ $not_regex{$regex} } if $element !~ $regex;
}
[download]