# 007 (octal) is ASCII bell
perl -e '${"\00717foo"} = 1; print ${"\00717foo"}'