#!/usr/bin/perl

# http://perlmonks.org/?node_id=1142266

use strict;
use warnings;

my $path = "XX.YY.ZZ";
my $s    = "(ABC | (~dEf & hIJ)) & ~LMn";

(my $answer = $s) =~ s/(\w+)/$path.$1/g;

print "$answer\n";