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