fix-srt-numbering.pl

#!/usr/bin/perl -w
use warnings;

my $i = 1;
my @in = <>;
while(@in) {
	local $_;

	$_ = shift @in or die;
	s/^(\d+)(\r?)$/$i$2/ or die "number of line expected: $_";
	print;
	++$i;

	$_ = shift @in or die;
	/\d\d:\d\d:\d\d,\d\d\d --> \d\d:\d\d:\d\d,\d\d\d\r?$/ or die "time expected: $_";
	print;

	my $lines = 0;
	for(;;) {
		$_ = shift @in or die;
		print;
		++$lines;
		last if /^\r?$/;
	}
	$lines or die "empty sub";
}