Help for this page

Select Code to Download

Select or download this

$foo = '1.23.456.78';
print join '.', map {sprintf("%03d", $_)} split(/\./, $foo);

Select or download this
print join '.', grep{s/ /-/g} map {sprintf("%03d", $_)} split(/\./, $foo);