perl -wMstrict -le
"my $lines = do {
   local $/ = qq(\cD);
   my $in = <STDIN>;
   chomp $in;
   $in
   };
 print $lines
"
qwert
asdf
zx^D
qwert
asdf
zx