#! /usr/bin/env perl

use v5.36;
use utf8;

use Encode 'decode';

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

my $ss = $files[0];
my $hex = sprintf "%vX", $ss;
say $hex;

say $file; # ERROR!

my $blah = "Screenshot-2024-02-23-at-1.05.14 AM.png";
my $hex2 = sprintf "%vX", $blah;
say $hex2;

say $hex eq $hex2 ? "hexes equal" : "hexes not equal";

say $blah =~ /Screenshot-2024-02-23-at-1.05.14\s/;  # WORKS!