Select Code to Download

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

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

while (<DATA>) {
   my ($key, $val) = split(/:/, $_, 2);
...

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