# NOTE: untested!
while(<INPUT>) {
  my ($key, $val) = /^([^:]+):\s*([\n#]+)/;
  &do_stuff_with($key, $val);
}