Hi Mark,
It works in Mathematica 12.3.1 if you specify "PageGraphics" as the second argument of ImportString:
"PageGraphics"
ImportString
InputForm@ImportString[ExportString[l, "PDF"], "PageGraphics"]
Here is a ready-made solution from version 1.0.2 of ResourceObject["SVGImport"]["DefinitionNotebook"] by Richard Hennigan (Wolfram Research):
ResourceObject["SVGImport"]["DefinitionNotebook"]
ImportString[ExportString[l, "PDF"], If[$VersionNumber >= 12.2, {"PDF", "PageGraphics"}, {"PDF", "Pages"}]]
-- you have earned Featured Contributor Badge Your exceptional post has been selected for our editorial column Staff Picks http://wolfr.am/StaffPicks and Your Profile is now distinguished by a Featured Contributor Badge and is displayed on the Featured Contributor Board. Thank you!
Thank you so much Mark for sharing this. Clear illustrations and easy to read code. It is a treat to see the Arabic letter "ظ" in your opening image. This letter's pronunciation is close to the letter "Z" in English.
Very nice. I hope to see this in the Wolfram Function Repository.