if ( $character =~ /[0-9a-z]/ ) {
 ...
}