Select Code to Download

$final_data = ` grep "$key_pattern" "${indir}/${lkp_file_name}" |cut -
+d"|" -f"$data_location"`;

my $file = $indir . '/' . $lkp_file_name;

...
}

$final_data = join "\n", @fields;