Select Code to Download

CALCON(test1)
{
...
  MAX(65535)
  UNITS(ms)
}

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

CALCON(test1)
{
...
  ...
  ...
}