IMNSearch.msg.en_US.rte.com:IMNSearch.msg.en_US.rte.com:2.4.0.0: : :C: :Text Search Messages - U.S. English: : : : : : :1:0:
IMNSearch.rte:IMNSearch.rte.com:2.4.0.0: : :C: :Text Search Client/Server Shared Files : : : : : : :1:0:
IMNSearch.rte.httpdlite:IMNSearch.rte.httpdlite:2.1.0.0: : :C: :Lite NetQuestion Local Web Server: : : : : : :1:0:

##</code><code>##

	$data{"foo"}{IMNSearch.msg.en_US.rte.com} = 2.4.0.0

##</code><code>##

IMNSearch.msg.en_US.rte.com   IMNSearch.msg.en_US.rte.com  
IMNSearch.rte                 IMNSearch.rte                
IMNSearch.rte.httpdlite       IMNSearch.rte.httpdlite      

##</code><code>##

my (%data, $system, @fields);

$system = "foo";

open (FILE, "$system");
	
while (<FILE>) {	
	@fields = split (/:/, $_);
	$data{$system}{$fields[$1]} = $fields[$2];	
};
	
close FILE;

foreach (sort keys %{$data{$system}}) {
	printf ("%-30s%-30s\n", $_, $data{$system}{$_});
};