Select Code to Download

my @records = split(/^(?=I)/m, $file);

my %pkg_lkup (
   ... => ...,
...
   }
   print($rec);
}

$rec =~ s/PKG_TYPE=\K.*/$pkg_lkup{$refdes}/;