or download this
c:\@Work\Perl\monks>perl -wMstrict -le
"my $path = 'XX.YY.ZZ';
...
expected: '(XX.YY.ZZ.ABC | (~XX.YY.ZZ.dEf & XX.YY.ZZ.hIJ)) & ~XX.YY.ZZ
+.LMn if XX.YY.ZZ.form while XX.YY.ZZ.i'
got: '(XX.YY.ZZ.ABC | (~XX.YY.ZZ.dEf & XX.YY.ZZ.hIJ)) & ~XX.YY.ZZ
+.LMn if XX.YY.ZZ.form while XX.YY.ZZ.i'
a-ok