$ perl -le print(chr(0)) |cat -v
^@