Help for this page
# \015 is carriage return. print("Hello\015you\n");
while (<>) { s/\015//g; print $_; }