Select Code to Download

my @array = qw[
binary_app=/usr/bin/true
...
<input type=text name="binary_app" value="/usr/bin/true">
<input type=text name="config_file" value="/etc/inetd.conf">
<input type=text name="MOD_NAME" value=""ABC"">

print qq[<input type=text name="$_->[0]" value="$_->[1]">\n] 
    for map{ [ m[^([^=]+)=["']?(.*?)["']?$] ] } @array;;
...
<input type=text name="binary_app" value="/usr/bin/true">
<input type=text name="config_file" value="/etc/inetd.conf">
<input type=text name="MOD_NAME" value="ABC">

print qq[<input type=text name="$_->[0]" value="$_->[1]">\n] 
    for map{ [ map{ tr["][']; $_ } split '=' ] } @array;;
...
<input type=text name="binary_app" value="/usr/bin/true">
<input type=text name="config_file" value="/etc/inetd.conf">
<input type=text name="MOD_NAME" value="'ABC'">