Hi,
Mine is not 100% perl solution. If You may be able to use external services like Tiny URL which can shorten the URL itself, can help for the underlying link. The one on the display can be shorten by Website names etc. or as per methods mentioned by other monks here.

Appreciating the Tiny Art,
Artist