my $n = 534587;
print "even\n" if($n % 2 == 0);

##</code><code>##

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