my @array = qw[
binary_app=/usr/bin/true
config_file=/etc/inetd.conf
MOD_NAME="ABC"
];;

print qq[<input type=text name="$_->[0]" value="$_->[1]">\n] 
    for map{ [ 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"">

##</code><code>##

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">

##</code><code>##

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'">