$Prj = $_;         ###checking $Prj for tladev database due to conflics with rel and source         if(index($Prj,"TladevWZ#1") != -1)         {             ###regex hier ?         }         $qst = "ccm query /u /f %objectname -n QAC -t dir \"recursive_is_member_of('$Prj', none)\"";