#!/usr/local/bin/perl 

# traducao de palavras com consulta de um dicionario com validacao
# o dicionario e lido do ficheiro: dict

%dict=split(/[=\n]/,`cat dict`);

while(<>) {
	s/(\w+)/if (defined $dict{$1}) {$dict{$1}} else {"+$1"}/ge;
	print;
}
