my $plaintext = do{local $/;<$in>};