#!/usr/bin/perl
use strict;
use warnings;
my $file=shift(@ARGV) or die("NO FILE!\n");
my $bak="$file.bak";
rename($file,$bak) or die("ERROR REMANE $file => $bak ($!)\n");

open(my $fhin, '<', $bak) or die("ERROR OPEN $bak ($!)\n");
open(my $fhout, '>', $file) or die("ERROR OPEN $file ($!)\n");
while(my $line=<$fhin>)
{
  $line=~s{(<ChapterFlagEnabled>1</ChapterFlagEnabled>)}{$1\n      <ChapterSegmentUID format="hex">\n      bcffc7fe80230cf7beb6e08bc38ca5d6\n      </ChapterSegmentUID>}g;
  print $fhout $line;
}
close($fhout);
close($fhin);

unlink($bak);