my $char_num = ord( $character );

if ( $char_num >= 55 && $char_num <= 90 ) {

##</code><code>##

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