my ($y, $z) = split /\./, $x;