%perl -le'print 127.0.0.1' | cat -v
   ^?^@^@^A

##</code><code>##

  % perl -le'print 64.0.0.1' | cat -v
  @^@^@^A
  % perl -le'print 65.0.0.1' | cat -v
  A^@^@^A
  % perl -le'print -64.0.0.1' | cat -v
  0
  % perl -le'print -65.0.0.1' | cat -v
  -A^@^@^A

##</code><code>##

  % perl -le'print -"aaa"' | cat -v
  -aaa

##</code><code>##

  % perl -MO=Deparse -e'print 65.0.0.1'
  print 65.0.0.1;
  % perl -MO=Deparse -e'print 64.0.0.1'
  print 64.0.0.1;
  % perl -MO=Deparse -e'print -65.0.0.1'
  print "-A\000\000\cA";
  % perl -MO=Deparse -e'print -64.0.0.1'
  print 0;