$ perl -le'my $ip="158.21.17.45"; my @values = split(".", $ip, -1); print $ip,"\t\t",$#values,"\n";' 158.21.17.45 12