DB<106> sprintf '%03o%03o', ord("\r"),ord("\n")
 => "015012"

##</code><code>##

  DB<104> map { sprintf '%03o', ord($_) } split //, "a \r\n" 
 => (141, "040", "015", "012")

##</code><code>##

  DB<109> sprintf '0%o', ord("a")
 => "0141"