$ perl -le" print sprintf q{\\%03o}, ord $_ for qq{\r}, qq{\n} "
\015
\012

$ perl -le " $_ = qq{\r\n\r\n}; s{(.)}{sprintf q{\\%03o}, ord $1}gse; print; "
\015\012\015\012