#!/usr/bin/perl -s
use locale;

$dir='/home/jj/DIC';
use text::translate;

if($o){open(STDOUT,">$o") or die};

trans_dic("$dir/en2pt.dict","$dir/en2pt.inf.dict") if($inf) ; # dictionary name
trans_dic("$dir/en2pt.dict") if(!$inf); # dictionary name
trans_prefix("@");                   # prefix for unkmown words
trans_ppp("$dir/en2pt.rr");          # perl file with a "posProc" function
trans_und("$dir/en2pt.und");         # put undefined words in ...
#trans_und_function("JUSTPREFIX") if ($pref);
#trans_und_function("INTERACTIVE") if ($i);

   trans_dont_touch('\\%(\w+)');

while(<>){
   s!".*?"!trans($&)!ge;
   print ;
}