while (<>) {
  next unless /^([^:]+):(.*)/;
  my ($name, $value) = ($1, $2);
...