C:\@Work\Perl\monks\zemane>perl -wMstrict -le
"my $lines = do {
   local $/ = qq(\cD);
   my $in = <STDIN>;
   chomp $in;
   $in
   };
 print $lines
"
the cow
jumped over
the moo^Dn whoops!
the cow
jumped over
the moo