Help for this page

Select Code to Download

Select or download this

c:\@Work\Perl\monks>perl -wMstrict -le
"use Regexp::Common qw(net);
...
'a1.2.3.4a b1.22.111.221b' -> 'ax.x.x.4a bx.xx.xxx.221b'
'999.9.9.9' -> '999.9.9.9'
'9.9.9.999' -> '9.9.9.999'

Select or download this

c:\@Work\Perl\monks>perl -wMstrict -le
"use 5.014;
...
'a111.22.3.4a b1.22.111.221b' -> 'axxx.xx.x.4a bx.xx.xxx.221b'
'999.9.9.9' -> '999.9.9.9'
'9.9.9.999' -> '9.9.9.999'