perl -wE 'my $string = do { local $/; <> }; say length $string; sleep 5' 2g
perl -wE 'my $string ; { local $/; $string = <> }; say length $string; sleep 5' 2g