sub string_is_valid {
    return $_[0] =~ /\A[a-zA-Z0-9]+\z/;
}

if (!string_is_valid($string1)) { ... }