if ($character =~ m/^[a-z0-9]$/) {
  ...
}