Convert ASS subs to SRT

ass2srt.pl

#!/usr/bin/perl

use strict qw(subs vars);
my $counter;

while(<>) {
  if(/^Dialogue: /) {
    my ($start, $end, $text)  = unpack("x12A10xA10x22A*", $_);
    
    my ($hr, $min, $sec) = split(/:/, $start);
    $hr = sprintf("%02d", $hr);
    $min = sprintf("%02d", $min);
    $sec =~ s/\./,/; $sec = $sec . "0";

    $counter++; 
    print "$counter\n";
    print "$hr:$min:$sec --> ";

    ($hr, $min, $sec) = split(/:/, $end);
    $hr = sprintf("%02d", $hr);
    $min = sprintf("%02d", $min);
    $sec =~ s/\./,/; $sec = $sec . "0";

    print "$hr:$min:$sec\n";

    $text =~ s/\\N/\n/g;
    
    print "$text\n\n";
  }
}