my $server;
if ($host =~ /^\s*\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}(\/\d{1,2})?$/) {
$server = $whois_servers{ipv4}{default};
} elsif ($host =~ /^\s*[\d:]*(\/\d{1,2})?\s*$/) {
$server = $whois_servers{ipv6}{default};
} elsif ($host =~ /([^\.]+)\.+([a-z]+)\.*$/) {
my $server;
if ($host =~ /^\s*\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}(\/\d{1,2})?$/) {
$server = $whois_servers{ipv4}{default};
} elsif ($host =~ /^\s*[\d:]*(\/\d{1,2})?\s*$/) {
$server = $whois_servers{ipv6}{default};
} elsif ($host =~ /([^\.]+)\.+([a-z]+)\.*$/) {