$ perl -MO=Deparse -e 'print "\x"'
print "\000";