Select Code to Download

use strict;
use warnings;
use 5.018;
...
      say "Didn't find a match for $key [ $value ]) in regex $error\n"
+;
   }
}

C:\>1108508.pl
Didn't find a match for 123xx51y [ Not a Windows error (or undocumente
+d) ]) in regex (?^u:00000056|0000052D|05601111)

...

matched $key: 05601111 in $error:
         $value: Friends don't let friends use Doze