local $/; my $scalar = ;