Select Code to Download

#! /usr/bin/env perl

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

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

53637265656e73686f742d323032342d30322d32332d61742d312e30352e3134e280af
+414d2e706e67
Use of uninitialized value $file in say at ./test.pl line 14.
...
53637265656e73686f742d323032342d30322d32332d61742d312e30352e31342f414d
+2e706e67
hexes not equal
1