Hi,

Thanks for your reply!

I am sorry that I didn't tell you that.

my %dic;

while (<DIC>) {
    
    chomp;

    my($columnA, $columnB) = split("\t", $_);

    $dic{$columnA} = $columnB;
}
[download]

The DIC file is a tab-delimeted file. For instance,

word word    parola parola
(word)    (parola)
[download]

The input text looks like:

This is a (word)

and should change to:

This is a (parola)