my $n = "534587";
print "even\n" if ($n =~ /[02468]$/);