#!/bin/perl

my $d=$ARGV[0];
open(IN,"$ARGV[1]");
while($l=<IN>) {
        if($l=~/<sync[\s]+start[\s]*=/i) {
		my ($a,$b)=split(/<sync[\s]+start[\s]*=/i,$l,2);
		my ($n,$b)=split(/>/,$b,2);
		$d = int($n * 3000/6354146 - 3000);
		$n+=$d;
		$l="$a<SYNC Start=$n>$b";
	}
	print $l;
}
close(IN);