perl -E 'printf("%#o\n",ord($_)) for split("","\r\n");'
015
012