$ perl -le " printf q[CR \r is %03o], ord qq[\r] "
CR \r is 015