$x = 'o\&a.sysadm';

if ($x =~ m/^(\w+(?:\\\&)?-?\w*)\.((?:\w+\\?(?:\\\&)?-?\w*\.?)+)/i){
    $client = $1;
    $project = $2;
}