Help for this page
sub RemoveComments { ... ... } }
while ($temp=<INPUT>){ RemoveComments(\$temp); ... some other code ... }