while (<>) {
   chomp;
   s/\s*#.*//;       # Strip off whitespace and trailing comments
   next if /^\s*$/;  # Skip blank lines

   &process_line_of_input($_);
}