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

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