m/((?:\w|\\\&|\-)*)\.((?:\w|\\\&|\-)*)/


##</code><code>##

m/(.*?)\.(.*)/


##</code><code>##

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