#!/usr/bin/perl 
#!/usr/bin/perl -C

use Text::RewriteRules;
use Data::Dumper;

my %dic = ();

impDic("dic");
$/='';

while(<>){
  print posp(trad($_));
}


MRULES trad

(\w+ \w+ \w+ \w+)==>$dic{$1}!! defined $dic{$1} 
(\w+ \w+ \w+)==>$dic{$1}!! defined $dic{$1} 
(\w+ \w+)==>$dic{$1}!! defined $dic{$1} 
(\w+)==>$dic{$1}!! defined $dic{$1} 
(\w+)=e=> ucfirst($dic{lc($1)})!! defined $dic{lc($1)} 
(\w+)==>##$1
(.|\n)==>$1

ENDRULES

MRULES posp
\bo (\w+a)\b==>a $1
#==>
(.|\n)==>$1

ENDRULES

sub impDic{
 local $/ = "\n";
 my (@d)= @_;
 for(@d){
   open(D,$_) or die ("cant open $_\n");
   while(<D>){
     if(/^(.*?)\s*=\s*(.*)$/){ $dic{$1}=$2 ; }
   }
   close D;
 }
}
