while ($temp=<INPUT>){
  RemoveComments(\$temp);
  next if ($temp !~ /\S/);
  ...
  some other code
  ...
}