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