> $ hexd test.pl                                                                                                                                   [±main ●▴]
          00 01 02 03 04 05 06 07 - 08 09 0A 0B 0C 0D 0E 0F  0123456789ABCDEF

00000000  23 21 20 2F 75 73 72 2F - 62 69 6E 2F 65 6E 76 20  #! /usr/bin/env
00000010  70 65 72 6C 0A 0A 75 73 - 65 20 76 35 2E 33 36 3B  perl..use v5.36;
00000020  0A 75 73 65 20 75 74 66 - 38 3B 0A 0A 23 20 67 65  .use utf8;..# ge
00000030  74 20 61 6C 6C 20 74 68 - 65 20 66 69 6C 65 73 20  t all the files
00000040  69 6E 20 74 68 65 20 63 - 75 72 72 65 6E 74 20 64  in the current d
00000050  69 72 65 63 74 6F 72 79 - 0A 6D 79 20 40 66 69 6C  irectory.my @fil
00000060  65 73 20 3D 20 67 6C 6F - 62 28 22 2A 22 29 3B 0A  es = glob("*");.
00000070  6D 79 20 28 24 66 69 6C - 65 29 20 3D 20 67 72 65  my ($file) = gre
00000080  70 20 7B 20 2F 53 63 72 - 65 65 6E 73 68 6F 74 2D  p { /Screenshot-
00000090  32 30 32 34 2D 30 32 2D - 32 33 2D 61 74 2D 31 2E  2024-02-23-at-1.
000000A0  30 35 2E 31 34 5C 73 2F - 20 7D 20 40 66 69 6C 65  05.14\s/ } @file
000000B0  73 3B 0A 0A 6D 79 20 24 - 73 73 20 3D 20 24 66 69  s;..my $ss = $fi
000000C0  6C 65 73 5B 30 5D 3B 0A - 6D 79 20 24 68 65 78 20  les[0];.my $hex
000000D0  3D 20 75 6E 70 61 63 6B - 28 22 48 2A 22 2C 20 24  = unpack("H*", $
000000E0  73 73 29 3B 0A 73 61 79 - 20 24 68 65 78 3B 0A 0A  ss);.say $hex;..
000000F0  73 61 79 20 24 66 69 6C - 65 3B 20 23 20 45 52 52  say $file; # ERR
00000100  4F 52 21 0A 0A 6D 79 20 - 24 62 6C 61 68 20 3D 20  OR!..my $blah =
00000110  22 53 63 72 65 65 6E 73 - 68 6F 74 2D 32 30 32 34  "Screenshot-2024
00000120  2D 30 32 2D 32 33 2D 61 - 74 2D 31 2E 30 35 2E 31  -02-23-at-1.05.1
00000130  34 E2 80 AF 41 4D 2E 70 - 6E 67 22 3B 0A 6D 79 20  4...AM.png";.my
00000140  24 68 65 78 32 20 3D 20 - 75 6E 70 61 63 6B 28 22  $hex2 = unpack("
00000150  48 2A 22 2C 20 24 62 6C - 61 68 29 3B 0A 73 61 79  H*", $blah);.say
00000160  20 24 68 65 78 32 3B 0A - 0A 73 61 79 20 24 68 65   $hex2;..say $he
00000170  78 20 65 71 20 24 68 65 - 78 32 20 3F 20 22 68 65  x eq $hex2 ? "he
00000180  78 65 73 20 65 71 75 61 - 6C 22 20 3A 20 22 68 65  xes equal" : "he
00000190  78 65 73 20 6E 6F 74 20 - 65 71 75 61 6C 22 3B 0A  xes not equal";.
000001A0  0A 73 61 79 20 24 62 6C - 61 68 20 3D 7E 20 2F 53  .say $blah =~ /S
000001B0  63 72 65 65 6E 73 68 6F - 74 2D 32 30 32 34 2D 30  creenshot-2024-0
000001C0  32 2D 32 33 2D 61 74 2D - 31 2E 30 35 2E 31 34 5C  2-23-at-1.05.14\
000001D0  73 2F 3B 20 20 23 20 57 - 4F 52 4B 53 21 0A 0A 0A  s/;  # WORKS!...