Name	Size	Mode	Actions
hanchors	1138	0644	editdlrm
hdump	541	0644	editdlrm
hform	1846	0644	editdlrm
hlc	547	0644	editdlrm
hrefsub	2782	0644	editdlrm
hstrip	1714	0644	editdlrm
htext	548	0644	editdlrm
htextsub	788	0644	editdlrm
htitle	434	0644	editdlrm

#!/usr/bin/perl -w use strict; use HTML::Parser (); HTML::Parser->new(start_h => [ \&start_lc, "tokenpos, text" ], end_h => [ sub { print lc shift }, "text" ], default_h => [ sub { print shift }, "text" ], ) ->parse_file(shift) || die "Can't open file: $!\n"; sub start_lc { my($tpos, $text) = @_; for (my $i = 0; $i < @$tpos; $i += 2) { next if $i && ($i/2) % 2 == 0; # skip attribute values $_ = lc $_ for substr($text, $tpos->[$i], $tpos->[$i+1]); } print $text; }