Select Code to Download

my $x = 1;
my $y = '1';
...

print "x is a ", (($x ^ $x)?"string":"number"), "\n";
print "y is a ", (($y ^ $y)?"string":"number"), "\n";

x is a number
y is a string
...
$z = 2
x is a number
y is a number