printf "CR \\r \\%03o 0x%02x\n", ord("\r"), ord("\r");;
printf "LF \\n \\%03o 0x%02x\n\n", ord("\n"), ord("\n");;

my $str = "str\015\012";

for( 1..2 ) {
    print "string '$str'\n";
    print "length ", length $str, "\n";
    chomp $str;
    print "string '$str'\n";
    print "length ", length $str, "\n\n";
}