local $/;  #sets to undef for the current scope
open(DAT_Source, $Source_data_file) || die("Could not open file!");
$raw_data_source=<DAT_Source>;
open(DAT_Expected, $Expected_data_file) || die("Could not open file!");
$raw_data_Expected=<DAT_Expected>;
if ($raw_data_source eq $raw_data_Expected)
{
print "DATA MATCHED!";
}
else
{
print "DATA NOT MATCHED!";
}