Index: trunk/ippScripts/scripts/detrend_stack.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_stack.pl	(revision 8715)
+++ trunk/ippScripts/scripts/detrend_stack.pl	(revision 8734)
@@ -81,10 +81,11 @@
 my $stats;			# Statistics from ppImage
 {
-    my $statsFile;		# File handle
-    open $statsFile, "$outputStats" or die "Can't open statistics file $outputStats: $!\n";
-    my @contents = <$statsFile>; # Contents of file
-    close $statsFile;
+    open(my $statsFile, "$outputStats")
+        or die "Can't open statistics file $outputStats: $!\n";
+    my $contents = do { local $/; <$statsFile> }; # Contents of file
+    close($statsFile);
+
     my $mdcParser = PS::IPP::Metadata::Config->new;	# Parser for metadata config files
-    my $metadata = $mdcParser->parse(join "", @contents)
+    my $metadata = $mdcParser->parse($contents)
         or die "unable to parse metadata config doc";
     $stats = PS::IPP::Metadata::Stats->new(); # Stats parser