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