Select Code to Download

local $/;  #sets to undef for the current scope
open(DAT_Source, $Source_data_file) || die("Could not open file!");
...
{
print "DATA NOT MATCHED!";
}