SubRip .srt to WebVTT .vtt converter

srt2vtt.pl

#!/usr/bin/env perl -w

print "WEBVTT\n\n";

while(<>) {
    s/(\d),(\d)/$1.$2/g if /--\>/;
    s/^[ \t]+//;
    s/[ \t]+$//;
    s/\r\n$/\n/;

    print;
}