@ident=`whois ibm.com|grep ID`;
my ($id) = grep(/ID/,@ident);