my $userid;
my $password;
while(<DATA>) {
	next if /^#/;
	($userid, $password) = split /=/;
}
print "$userid:$password\n";
__DATA__
#user=passwd
test=prrft5142