#!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";
}