#!/bin/perl

#in GomTV +1.5 eqal +1500;
my $delay = 1500;
open(IN,"3a.smi");
open(OUT,">3b.smi");
while($aline=<IN>) {
        if($aline=~/Start=/i) {
                my ($pre,$post) = split(/Start=/i,$aline);
                ($pre,$post) = split(/>/,$post);
                $post = $pre - $delay;
                $aline =~ s/$pre/$post/g;
        }
        print OUT $aline;
}
close(IN);
close(OUT);