DB<1> @lines = do { open( my $fh, '<', 'FILE' ); <$fh> }