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

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