Select Code to Download

$_ = "a\x{2625}\x{10000}";
print map { sprintf "%x\n", ord } m/(\p{L})/g;
61
10000