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