my $line; {local $/; $line = <DATEIHANDLE>; }