open (PAGE, $filename) || die "Can't open $filename: $!";
my $text = <PAGE>;
close PAGE || die "Can't close $filename: $!";

# parse $text somehow

##</code><code>##

my $text;		# outside of the block so it's in scope after we leave the block
{
	local $/;
	open (PAGE, $filename) || die "Can't open $filename: $!";
	$text = <PAGE>;
	close (PAGE) || die "Can't close $filename: $!";
}