if ($number =~ /\D/) {
  print "$number is not an integer\n";
}
elsif ($number =~ /[02468]$/) {
  print "$number is even\n";
else {
  print "$number is odd\n";
}