Select Code to Download

        my $dominfo = `whois $_`;  #whois('perl.com');

        my @split = split /\n/, $dominfo;

        chomp( my @split = `whois $_` );  #whois('perl.com');

            s/^(\t+|\s+)//sig;

            s/^\s+//;

            s/\s+/ /sig;

            s/\s+/ /g;