or download this
qwurx [shmem] ~ > perl -le 'print "foo bar ", "baz", ^@^ , " niente"'
Useless use of bitwise xor (^) in void context at -e line 1.
...
Useless use of bitwise xor (^) in void context at -e line 1.
Useless use of a constant in void context at -e line 1.
foo bar baz