if(  m#^coclli=(.*)# && $coclli eq "" ) {
               $coclli = $1;
               }