>perl -wMstrict -le
"my %replace = (
   ABC   => 'XXX',
   ABCD  => 'YYYY',
   ABCDE => 'ZZZZZ',
   );
 my $find = join '|', map quotemeta, reverse sort keys %replace;
    $find = qr{ $find }xms;
 print qq{find regex: $find};
 my $s = 'ABC ABCD xxABCDxx ABCDE';
 print qq{before: '$s'};
 (my $t = $s) =~ s{ ($find) }{$replace{$1}}xmsg;
 print qq{sans \\b: '$t'};
 print '';
 print qq{before: '$s'};
 ($t = $s) =~ s{ \b ($find) \b }{$replace{$1}}xmsg;
 print qq{with \\b: '$t'};
"
find regex: (?msx-i: ABCDE|ABCD|ABC )
before:  'ABC ABCD xxABCDxx ABCDE'
sans \b: 'XXX YYYY xxYYYYxx ZZZZZ'

before:  'ABC ABCD xxABCDxx ABCDE'
with \b: 'XXX YYYY xxABCDxx ZZZZZ'