while (my $line = <CONFIG>) {
	chomp $line;
	if ((split /\s+/,$line)[2] =~ /(\w+)-/i) {
		print $1;
	}
}