use 5.014; # For /r regex modifier print s/(^|\s)\d+\.\d+/$1X.X/gr for ; __DATA__ 10.128.99.190 10.128.100.100 1.1.1.1 2.2.2.2 3.3.3.3 4.4.4.4 100.100.100.100 200.200.200.200