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