$b1 = do { local $/; <$f1_p> };