Help for this page

Select Code to Download

Select or download this

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

Select or download this

97.98.99.100
97.98.99.100
97.98.99.100.97.98.99.100
97.98.99.100