my $srch = join ('|', map {'\b.'quotemeta($_).'\b'} keys %trans);
$text =~ s/($srch)/$trans{$1}/g;