my $a = '94';
my $b = '98';
my $c = $a ^ $b;
print "$c\n";

my $x = 94;
my $y = 98;
my $z = $a ^ $b;
print "$z\n";

my $i = 94 ^ 98;
print "$i\n";