#! /usr/bin/env perl

use v5.36;
use utf8;

# get all the files in the current directory
my @files = glob("*");
my ($file) = grep { /Screenshot-2024-02-23-at-1.05.14\s/ } @files;

say $file;