Select Code to Download

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

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

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