#!/usr/bin/perl

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

use strict;
use warnings;

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

print $s =~ s/(\w+)/$path.$1/gr, "\n";