use Data::Dumper;
$Data::Dumper::Useqq = 1;
my @zippeintraege = grep {
    if (m/$filter/) {
        1
    }
    else {
        print "Did not match '$filter':\n";
        print Dumper $_;
        0
    }
} readdir(DIR);