Select Code to Download

while (<config>) {
    chomp;
    my ($key, $value) = /^(.{1,13})(.+)$/;
    $lookup{$key} = $value;
}