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