http://qs1969.pair.com?node_id=321171

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

How would I get a group of @codes to go through my .html file and if it finds anything in @codes, it'll change it into lowercase?

Basically, I'm trying to rewrite my html tags that are all uppercase to all lowercase.. How close am I?

my $file = "index.html"; my @codes = ("<P>", "<BR>", "UL"); # and many more open(FILE, "> $file") or die "Oops: $!"; while(<FILE>); if ($_ eq @words) { $_ =~ s/@words/lc @word/g; } close(FILE);
Thanks.