use strict;
use warnings;

use Test::More tests => 6;

my $x = 111;
my $y = '111';
my $z = "1\N{LATIN CAPITAL LETTER GAMMA}1";

ok !($x & ~$x), '$x is a number, &~';
ok $y & ~$y, '$y is a string, &~';
ok $z & ~$z, '$z is a string, &~';

ok !($x ^ $x), '$x is a number, ^';
ok $y ^ $y, '$y is a string, ^';
ok $z ^ $z, '$z is a string, ^';