opendir my $dir, "$photodir/$category" or die "didn't work: $!";
while( my $ent = readdir $dir ) {
    next unless $ent =~ m/something/;

    # unlink("$p/$c/$ent") or die "didn't work: $!";
}
closedir $dir;
}