$dec_text="المحتلة"
$dec_text =~s/(\&\#(\d+)\;)/pack("U*",$2)/eg;