Help for this page
use strict; use warnings; ... my $b = join('.',unpack('(CCCC)*',substr($a,0,4))); print $b, "\n"; }
97.98.99.100 97.98.99.100 97.98.99.100.97.98.99.100 97.98.99.100