my $data = do { local $/; <DATA> };

##</code><code>##

	my $data = do
	{
		local $/; # localize RS?
		<DATA>    # evaluate <DATA> in scalar context ?
	}