if ($string =~ /^([A-z]|[0-9])+$/){