while( <FOO> ) {
  s/\s*#.*$//;
  next if /^\s*$/;

  ...
}