#!/usr/bin/perl
use strict;
use warnings;
use File::Find::Iterator;
use File::Spec;
my $itr = File::Find::Iterator->create(
dir => ['.'],
filter => sub {
/[\da-f]{64}\.(?i:jpe?g|png|gif)$/;
},
);
while (my $f = $itr->next) {
warn File::Spec->canonpath($f) if $f !~ /(?:jpg|png|gif)$/;
}