perl -e 'print ord(shift) . "\n"' "’"