my ($client, $project, $subproject) = split /\./, $x;