$text =~ s{
   \b
   # Capture the <ACRONYM>URL</ACRONYM> to $1 . . . 
   (
      http:// [-a-z0-9]+(\.[-a-z0-9]+)*\.(com|edu|info) \b # hostname
      (
         / [-a-z0-9_:\@&?=+,.!/~*'%\$]*  # optional path
      )?
   )
}{<a href="$1">$1</a>}gix;




-----------------------------------------------------------------------------
Copyright 1997-2024 Jeffrey Friedl