CALCON(test1)
{
  TYPE(U8)
  FEATURE(DCOM)
  NAM(stmin)
  LABEL(Min seperation time between CFs)
  MIN(0)
  MAX(127)
  UNITS(ms)  
}

CALCON(test2)
{
  TYPE(U16)
  FEATURE(DCOM)
  NAM(dcomc_sestmr_timeout)
  LABEL(DCOM Session Timer Timeout)
  MIN(0)
  MAX(65535)
  UNITS(ms)
}

##</code><code>##

while ($content =~m/^(CAL.+\((\w+)\))/mg){
        print "\n1= $1";
        print "\n2= $2";
}

##</code><code>##

CALCON(test1)
{
  TYPE(U8)
  ...
  ...
}