my ($X,$Y,$Z) = split /\./, $version;