c:\@Work\Perl\monks>perl -wMstrict -le
"use Data::Dumper;
 ;;
 use constant SENTENCE => 'this word word (word) is a word';
 ;;
 my %dic = (
   'word word' => 'parola parola',
   'word'      => 'XXXX',
   '(word)'    => '(parola)',
   );
 print Dumper \%dic;
 ;;
 print '---------------';
 ;;
 my ($rx_A) =
   map  qr{ (?<!\w) (?: $_) (?=\s|$) }xms,
   join ' | ',
   map  quotemeta,
   sort { length $a <=> length $b }
   keys %dic
   ;
 print qq{rx_A: $rx_A};
 ;;
 my $s = SENTENCE;
 print qq{'$s'};
 $s =~ s/($rx_A)/$dic{$1}/g;
 print qq{'$s'};
 ;;
 print '---------------';
 ;;
 my ($rx_D) =
   map  qr{ (?<!\w) (?: $_) (?=\s|$) }xms,
   join ' | ',
   map  quotemeta,
   reverse sort { length $a <=> length $b }
   keys %dic
   ;
 print qq{rx_D: $rx_D};
 ;;
 $s = SENTENCE;
 print qq{'$s'};
 $s =~ s/($rx_D)/$dic{$1}/g;
 print qq{'$s'};
"
$VAR1 = {
          '(word)' => '(parola)',
          'word' => 'XXXX',
          'word word' => 'parola parola'
        };

---------------
rx_A: (?^msx: (?<!\w) (?: word | \(word\) | word\ word) (?=\s|$) )
'this word word (word) is a word'
'this XXXX XXXX (parola) is a XXXX'
---------------
rx_D: (?^msx: (?<!\w) (?: word\ word | \(word\) | word) (?=\s|$) )
'this word word (word) is a word'
'this parola parola (parola) is a XXXX'

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -le
"my %dic = qw(Abc Zyx  Abcd Zyxw  Abcde Zyxwv);
 ;;
 use constant S => 'AbcAbcdAbcdeAbcdeAbcdAbc';
 ;;
 print '------------';
 my ($rx_A) =
   map  qr{ $_ }xms,
   join ' | ',
   sort
   map  quotemeta,
   keys %dic
   ;
 print qq{rx_A: $rx_A};
 ;;
 my $s = S;
 print qq{'$s'};
 $s =~ s{ ($rx_A) }{$dic{$1}}xmsg;
 print qq{'$s'};
 ;;
 print '------------';
 my ($rx_D) =
   map  qr{ $_ }xms,
   join ' | ',
   reverse sort
   map  quotemeta,
   keys %dic
   ;
 print qq{rx_D: $rx_D};
 ;;
 $s = S;
 print qq{'$s'};
 $s =~ s{ ($rx_D) }{$dic{$1}}xmsg;
 print qq{'$s'};
"
------------
rx_A: (?^msx: Abc | Abcd | Abcde )
'AbcAbcdAbcdeAbcdeAbcdAbc'
'ZyxZyxdZyxdeZyxdeZyxdZyx'
------------
rx_D: (?^msx: Abcde | Abcd | Abc )
'AbcAbcdAbcdeAbcdeAbcdAbc'
'ZyxZyxwZyxwvZyxwvZyxwZyx'