my $i = my $x = (split(/\./, '205.0.0.0'))[0]; my $j = my $y = (split(/\./, '123.0.0.0'))[0]; my $ij = $i & $j; $x += 0; $y += 0; my $xy = $x & $y; print("$i & $j = $ij\n"); # 205 & 123 = 001 print("$x & $y = $xy\n"); # 205 & 123 = 73