#!usr/bin/perl
use strict;

open (FILE,'<abc.txt');
my %config;

while(<FILE>)
{
	if($_=~'^(\w+_?\w+)=([01])')
	{
		$config{$1}=$2;
		print "$1:$config{$1}\n";
	}
}
close FILE;
for my $i (sort keys(%config))
{
	print "$i:$config{i}\n";
}


##</code><code>##

$ perl test002.pl
AAA:1
BBBB:0
CCC:0
DD:1
AAA:
BBBB:
CCC:
DD:


##</code><code>##

AAA=1;
BBBB=0;
CCC=0;
DD=1;