#!/usr/bin/perl
use strict;
use warnings;

$/ = "";

while(<DATA>) {
	my @lines = split "\n";
	for ($lines[1]) {
		s/,(\d+)(\d)/":".($2 >= 5 ? $1 + 1 : $1)/eg;
		s/--> //;
		tr/:/;/;
	}
	print "#$lines[0] ", join "\n", @lines[1,2], "";
}


__DATA__
1
00:00:38,585 --> 00:00:40,519
What's wrong?

2
00:00:40,554 --> 00:00:43,148
I think I hit something.