$x=$_ + $x << 8 for split(/\./, $y);