$_="112165163164040141156157164150145162040160145162154040150141143153145162";while(m/(\d{3})/go){print chr(oct($+))};