my @array = (
	'binary_app=/usr/bin/true',
	'config_file=/etc/inetd.conf',
	'MOD_NAME="ABC"'
);

printf qq|<input type=text name="%s" value="%s">\n|, split '=' for @array;

##</code><code>##

printf qq|<input type=text name="%s" value="%s">\n|, map {s/"/'/g; $_} split '=' for @array;