Help for this page
DB<106> sprintf '%03o%03o', ord("\r"),ord("\n") => "015012"
DB<104> map { sprintf '%03o', ord($_) } split //, "a \r\n" => (141, "040", "015", "012")
DB<109> sprintf '0%o', ord("a") => "0141"