use strict;
use warnings;

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