$ perl -e " no warnings q[utf8]; print chr(999) " ϧ