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