Repair Premiere Pro Debug Event (keyframe)

#!perl -w

use strict;
use warnings;

my $dmg = $ARGV[0];
my $rep = $ARGV[1];

print "dmg: $dmg\n";
print "rep: $rep\n";

open (DMG,"<".$dmg) or die "Could not open file: $dmg. ($!)\n";
open (REP,">".$rep) or die "Could not open file for writing: $rep. ($!)\n";

while (<DMG>) {
    chomp();
    if ($_ =~ m/(<StartKeyframe>)(.*)(<\/StartKeyframe>)$/gi) {
        my $tag1 = $1;
        my $content = $2;
        my $tag2 = $3;

        $content =~ s/\,\,/\.\,/g;
        print REP $tag1.$tag2."\n";

    } elsif ($_ =~ m/(<Keyframes>)(.*)(<\/Keyframes>)$/gi) {
        my $tag1 = $1;
        my $content = $2;
        my $tag2 = $3;

        $content =~ s/\,\,/\.\,/g;
        print REP $tag1.$tag2."\n";

    } else {
        print REP $_."\n";
    }


}

close (DMG);
close (REP);