#!/usr/bin/perl -i
use warnings;
use strict;


my @codes = ("<P>", "<BR>", "<UL>"); # and many more


while(<>);
for my $word (@words) {
$_ =~ s/$word/lc $word/g;
}
close(FILE);