perl -wle "print qq(\x30)"
0