my @array = ("cd.interpret.album.song","cd.interpret.album","cd.interpret","cd");


for my $i (0..$#array) {
	
	# alle einträge mit 2 punkten, sollte "cd.interpret.album" ergeben
	if($array[$i] =~ m~^(\w+\.){2}\w$~) {
		print $array[$i] ."\n";
	}
	
}