use Path::Class;
my $dir = dir("c:\\test");
my @jpegs = grep {$_->basename =~ /[.]jpg$/} $dir->children;
say for @jpegs;