#! /usr/bin/env perl

use v5.36;

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 = unpack("H*", $ss);
say $hex;

say $file; # ERROR!

my $blah = "Screenshot-2024-02-23-at-1.05.14 AM.png";
my $hex2 = unpack("H*", $blah);
say $hex2;

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

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

##</code><code>##

Character in 'H' format wrapped in unpack at ./test.pl line 12.
53637265656e73686f742d323032342d30322d32332d61742d312e30352e31342f414d2e706e67
Wide character in say at ./test.pl line 15.
Screenshot-2024-02-23-at-1.05.14&#8239;AM.png
53637265656e73686f742d323032342d30322d32332d61742d312e30352e3134e280af414d2e706e67
hexes not equal