Select Code to Download

my $contents = do { local $/; <DATA> };

...
 more
name4=
  value4

[name1 => value1]
[name2 => value2]
[name3 => value3]
[name4 => value4]

my $contents = do { local $/; <DATA> };

...
) {
   print("[$1 => $2]\n");
}