my @lines = do { local $/; <$in> }; # slurp!