# \015 is carriage return.
print("Hello\015you\n");

##</code><code>##

while (<>) {
   s/\015//g;
   print $_;
}