# if you are in doubt about a specific file, you still have to check it manually.
my $tags = qr/b|i|u|h[1-6]|a href.*|input|form|br|textarea|table|tr|td|th|body|head|html|p|button|select|option|script/;
foreach my $file (@testitems) {
my $found_html_count = 0;
my $found_html = '';
$file =~ s/\s.*$//; # nuke everything after the first space (#comment)
# if you are in doubt about a specific file, you still have to check it manually.
my $tags = qr/b|i|u|h[1-6]|a href.*|input|form|br|textarea|table|tr|td|th|body|head|html|p|button|select|option|script/;
foreach my $file (@testitems) {
my $found_html_count = 0;
my $found_html = '';
$file =~ s/\s.*$//; # nuke everything after the first space (#comment)