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

        my @split = split /\n/, $dominfo;
[download]

That should be just:

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

            s/^(\t+|\s+)//sig;
[download]

That should be just:

            s/^\s+//;
[download]

            s/\s+/ /sig;
[download]

That should be just:

            s/\s+/ /g;
[download]