Select Code to Download

use strict;
use warnings;
...
  MAX(65535)
  UNITS(ms)
}

$content =~m/(CALCON((?!CALCON).)* )/xsmg