Select Code to Download

"112358" =~ /['0' | '2' | '4' | '6' | '8']$/i ? print "even\n" :  prin
+t "odd\n";

my $n = 112358;
$n =~ /['0' | '2' | '4' | '6' | '8']$/i ? print "even\n" :  print "odd
+\n";