while (<DATA>) {
   my ($key, $val) = /^\s*([^:]*?)\s*:\s*(.*?)\s*$/
      or next;

   print("[$key:$val]\n");
}