perl -w -E "say hex(q{x})"
0