Select Code to Download

name1=value1
           name2  = value2

    while (<$input>)
    {
...
        # name is in $1, value is in $2
      }
    }

name1=value1
             name2 = value2
...
 more
name4=
  value4

    my $contents = do {local $/; <$input>};
    while ($contents =~ / ANSWER_HERE /msg)
    {
      # name is in $1, value is in $2
    }

    my $contents = do {local $/; <$input>};
    my $name = qr/\s* [^=\s]+ \s*/x;
...
    {
      # name is in $1, value is in $2
    }