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";
    }
}