key: value     # comment

##</code><code>##

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