Select Code to Download

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

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