$ perl -le 'print 1000^1000'
0