print ord,$"for map/\pl/g,<>