sub IP_check {
    my $_info2 = $ENV{'REMOTE_ADDR'};
    my $info;
    
    if (!$_info2) {
        $info2 = "No IP address available";
        return $info2;
    } elsif ($_info2 !~ /[\%]+/ && 
             $_info2 =~ /^(\d{1,3}\.{1})(\d{1,3}\.{1})(\d{1,3}\.{1})(\d{1,3})$/) {
        my $info2 = "$1$2$3$4";
        return $info2;
    } else {
        my $info2 = "Bad IP address submitted";
        return $info2;
    }
}

##</code><code>##

sub IP_check {
    my $_info2 = $ENV{'REMOTE_ADDR'};

    if (!$_info2) {
        return "No IP address available";
    } elsif ($_info2 !~ /[\%]+/ && 
             $_info2 =~ /^(\d{1,3}\.{1})(\d{1,3}\.{1})(\d{1,3}\.{1})(\d{1,3})$/) {
        return "$1$2$3$4";
    } else {
        return "Bad IP address submitted";
    }
}

##</code><code>##

sub IP_check {
    my $_info2 = $ENV{'REMOTE_ADDR'};
    my $ip;

    if (!$_info2) {
        $ip = "No IP address available";
    } elsif ($_info2 !~ /[\%]+/ && 
             $_info2 =~ /^(\d{1,3}\.{1})(\d{1,3}\.{1})(\d{1,3}\.{1})(\d{1,3})$/) {
        $ip = "$1$2$3$4";
    } else {
        $ip = "Bad IP address submitted";
    }

    return $ip;
}

##</code><code>##

sub IP_check {
    my $_info2 = $ENV{'REMOTE_ADDR'};
    my $ip;

    if (!$_info2) {
        "No IP address available";
    } elsif ($_info2 !~ /[\%]+/ && 
             $_info2 =~ /^(\d{1,3}\.{1})(\d{1,3}\.{1})(\d{1,3}\.{1})(\d{1,3})$/) {
        "$1$2$3$4";
    } else {
        "Bad IP address submitted";
    }
}