open FILE, '<', ....; my $bigstring; do{ local $/; $bigstring = ; }; ## NOTE: not my $bigstring = do{ local $/; }; This consumes double the memory of the above.