$HomePath = $ENV{"WORKHOME"};
$Model = shift;
$Model =~ m/\Q$HomePath\E\\(.*)\\[.\w]+/i;
$WorkingDirectory  = $1;