my $var = do { local $/ ; <> };