$ perl -Mstrict -MPath::Tiny -wE 'path("/tmp/11106920")->visit( sub { say $_->basename(".tif") if /[0-9]+_[0-9]+\.tif/ } );'