#!/usr/bin/perl

open(IN, "<sw6-german-jen.in");
open(B, ">sw6-german-jen.srt");
open(A, ">sw6-german-jen-long.srt");
while(defined(my $ln = <IN>)) {
    if($ln =~ s/^<1>//o) {
        print A $ln;
    } elsif($ln =~ s/^<2>//o) {
        print B $ln;
    } else {
        print A $ln;
        print B $ln;
    }
}
