Select Code to Download

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

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