Hi hmag, Try this,

use strict;
use warnings;

while (<DATA>){
chomp;
my ($firstpartofsplit, $secondpartofsplit) = split /=/, $_;
print "<input type=text name =\"$firstpartofsplit\" value=\"$secondpar
+tofsplit\">\n";
}
__DATA__
binary_app=/usr/bin/true
config_file=/etc/inetd.conf
MOD_NAME="ABC"
[download]

You should view How (Not) To Ask A Question