if ($value =~ m/[^a-zA-Z0-9]/) {