if($LAST_CCQ_SUMTBL =~ /([\w_]+.\w+).\w+/){
          $LAST_CCQ_SUMTBL = $1;
     }

     $proj_prefix =~ tr/\//-/;
     
     if($proj_short  =~ /\w+\-(\w+)/){
          $proj_short  =  $1;
     }
 
     print "$proj_prefix\n";
     print "$proj_short\n";