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