Select Code to Download

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

#!/usr/bin/perl -i
use warnings;
...
$_ =~ s/$word/lc $word/g;
}
close(FILE);