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

##</code><code>##

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