my $d = do { local $/ = undef; <$read>; };