($a,$b,$c,$d)      = split /\./, '18.157.0.125';
$packed_ip_address = pack 'C4', $a, $b, $c, $d;

($a,$b,$c,$d)      = unpack 'C4',$packed_ip_address;
$dotted_ip_address = join '.', $a,$b,$c,$d;