my @a = qw(binary_app=/usr/bin/true config_file=/etc/inetd.conf MOD_NA
+ME="AB=C");

for ( @a )
{
    my @s = split (/=/, $_, 1);
    print qq(<input type=text name ="$s[0]" value="$s[0]">\n);
}
[download]

Note, that there is a problem with your quoting in the 3rd element ("ABC").