$ip=<STDIN>;
@t=split(/./,$ip);
$x=@t;
print "$x\n";
print "@t\n";

##</code><code>##

foonikens@xxxx:~$ ./ipcalc.pl
Entrez votre ip :21.23
6