my $cat2;
{
	open(FH, 'data.txt') || die "Some error: $!";
	local $/;
	$cat2 = <FH>;
	close FH;
}