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

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

		    s/^\s+//;

##</code><code>##

		    s/\s+/ /sig;

##</code><code>##

		    s/\s+/ /g;