#!/usr/bin/perl

use strict;
use utf8::all

$/ = '';

my %palavras;
#my $token = qq{"word":"(\\p{L}+(\\s?\\p{L}+)*)","translation":"(\\p{L}+(\\s?\\p{L}+)*)"};
my $token = qq{"word":"((\\p{L}++([-][\\p{L}]+)*)(\\s?(\\p{L}+)*+([-][\\p{L}]+)*)*)","translation":"((\\p{L}++([-][\\p{L}]+)*)(\\s?(\\p{L}+)*+([-][\\p{L}]+)*)*)"};

while (<>){
    while(/$token/g){
        print "$1=$7\n";
    }
}

