ted.pl

#!/usr/bin/env perl
use strict;
use warnings;
use File::Slurp;

my @ted_en = read_file('ted_en.txt');
my @ted_ja = read_file('ted_ja.txt');
my @out;

for my $te (@ted_en) {
    chomp $te;
    $te =~ s/"/\\"/g;
    for my $tj (@ted_ja) {
        chomp $tj;
        print "    \"$te\" : \"$tj\",\n";
        push @out, "    \"$te\" : \"$tj\",\n";
        @ted_ja = grep {$_ ne $tj} @ted_ja;
        last;
    }
}
write_file('ted_merged.txt', @out);