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

##</code><code>##

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