3 # ./bin/sync2yaml.pl media/_editing/sync.txt > media/_editing/video.srt.yaml
16 if ( m{(\d+):(\d+)\s+(.+)} ) {
19 push @subtitles, [ $t, $t+3, "[$nr] $3" ];
20 } elsif ( m{(\d+\.\d+)\s+(\d+\.\d+)\s+(.+)} ) {
21 push @subtitles, [ $1, $2, "[$nr] $3" ];
23 die "unknown format: $_";
28 print Dump @subtitles;