my $addr = "25.255.2.0";
my @scalar = split(/\./, $addr);

##</code><code>##

print "The address is $scalar[0].$scalar[1].$scalar[2].$scalar[3]\n";

##</code><code>##

print "The address is ",join('.',@scalar),"\n";