while (<DATA>) {
   my ($key, $val) = split(/:/, $_, 2);
   next if not defined $val;
   s/^\s+//, s/\s+$// for $key, $val;

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