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);