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