Re: Arabic to Hex and Hex to Arabic

[Tux]

use 5.18.2;
use warnings;

use utf8;
use Data::Peek;
use Encode qw( decode encode );

my $arabic = "ﻟﻠﺒﻴﻊ"; # "For sale"

say join " " => map { sprintf "U+%06x", ord $_ } split m// => $arabic;

say join " " => map { sprintf "U+%06x",     $_ } unpack "U*", $arabic;

DHexDump $arabic;

say join " " => map { sprintf "U+%02x", ord $_ } split m// => encode (
+utf8 => $arabic);

U+00fedf U+00fee0 U+00fe92 U+00fef4 U+00feca
U+00fedf U+00fee0 U+00fe92 U+00fef4 U+00feca
0000  ef bb 9f ef bb a0 ef ba  92 ef bb b4 ef bb 8a     ..............
+.
U+ef U+bb U+9f U+ef U+bb U+a0 U+ef U+ba U+92 U+ef U+bb U+b4 U+ef U+bb 
+U+8a