sub wanted {
    /^.*-.*-jahr\.pdf\z/s
    && print("$name\n");
}