Help for this page
my @array = ( 'binary_app=/usr/bin/true', ... ); printf qq|<input type=text name="%s" value="%s">\n|, split '=' for @ar +ray;
printf qq|<input type=text name="%s" value="%s">\n|, map {s/"/'/g; $_} + split '=' for @array;