my $data; { open my $fh, '<', $file or die "$file: $!";
	local $/; $data = <$fh> };