Perlについての質問箱 50箱目

(($_ ^ $_) eq '0') ? print "$_: numeric\n" : print "$_: string\n" for (1, '1');

1: numeric
1: string