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