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