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