my $ip_address = "";
if ( $allclasses_file =~ m/_([^_]+$)/ ) {
        $ip_address = $1;
        unless ($ip_address =~ m/\d+\.\d+\.\d+\.\d+/) {
            print "Bad ip value $ip_address\n";
        }
}
return $ip_address;