my ( $scalar_1, $scalar_2, $scalar_3, $scalar_4 ) = split /\./, '25.255.2.0';

##</code><code>##

my ( $scalar_1, $scalar_2, $scalar_3, $scalar_4 ) = @array;