Print ("Please enter the name of your html file\n");
$file = (<STDIN>);

##</code><code>##

open (IN, $file);
open (OUT, >$file);
while ($line = [IN]) {
$line =~ s/[html]/[HTML]/;<code>
# Would I have to do the above line for all possible tags or is there an easier way ?.
<code>(print OUT $line);
}

##</code><code>##

rename $file, "$file.old";
open (IN, "<$file.old");
Open (OUT, ">$file");