Help for this page
m/((?:\w|\\\&|\-)*)\.((?:\w|\\\&|\-)*)/
m/(.*?)\.(.*)/
my ($client, $project, $subproject) = split /\./, $x;