my $line = do { local $/; ; };