C:\usr\local\share\PassThru\perl>perl -le "print +('george' and 'gracie')"
gracie

C:\usr\local\share\PassThru\perl>perl -le "print +('0' and 'gracie')"
0

C:\usr\local\share\PassThru\perl>perl -le "print +('' and 'gracie')"


C:\usr\local\share\PassThru\perl>perl -le "print +('george' and 'false')"
false

C:\usr\local\share\PassThru\perl>perl -le "print +('george' and '')"


C:\usr\local\share\PassThru\perl>perl -le "print +(2 and 4)"
4

C:\usr\local\share\PassThru\perl>perl -le "print +(2 && 4)"
4

C:\usr\local\share\PassThru\perl>perl -le "print +(2 & 4)"
0