Select Code to Download

my @newArray =
  (
...
    {my ($lhs, $rhs) = /(.*?)=(.*)/; $lhs =~ tr/_/./; "$lhs=$rhs"}
    @array
  );

use strict;
use warnings;
...
  );

print join "\n", @newArray;