#!/usr/bin/perl

use strict; # https://www.perlmonks.org/?node_id=11155355
use warnings;
use Path::Tiny;

system 'tree someDir';
print "\n";
my @f = path( 'someDir' )->children( qr/someFile*/i );
print "found  $_\n" for @f;
[download]

Outputs:

someDir
|-- SOMEFILE.tmp
|-- someFile.txt
`-- somefile.dat

1 directory, 3 files

found  someDir/somefile.dat
found  someDir/SOMEFILE.tmp
found  someDir/someFile.txt
[download]