Göra om domänadress till länk

Jag använder idag en funktion för att göra en inmatad domänadress exempelvis https://www.webforum.nu till en klickbar länk, se koden nedan:

Problemet är om någon anger en väldigt lång domänadress, jag skulle vilja klippa ner den "synliga" adressen till max 20 tecken:

Länken
https://www.webforum.nu?blaha.php?s=12222222222222222222222222222

Vill visa
https://www.webforum.nu?blaha.php?

Hur gör jag?

//  First match things beginning with [url]http://[/url] (or other protocols)		
$NotAnchor 		= 	'(?<!"|href=|href\s=\s|href=\s|href\s=)';
$Protocol 		= 	'(http|ftp|https):\/\/';
$Domain 		= 	'[\w]+(.[\w]+)';
$Subdir 		= 	'([\w\-\.,@?^=%&:\/~\+#]*[\w\-\@?^=%&\/~\+#])?';
$Expr 			= 	'/' . $NotAnchor . $Protocol . $Domain . $Subdir . '/i';

$Result 		= 	preg_replace( $Expr, "<a href=\"$0\" title=\"$0\" target=\"_blank\">$0</a>", $Text );

//  Now match things beginning with [url]www.[/url]
$NotAnchor 		= 	'(?<!"|href=|href\s=\s|href=\s|href\s=)';
$NotHTTP 		= 	'(?<!:\/\/)';
$Domain 		= 	'www(.[\w]+)';
$Subdir 		= 	'([\w\-\.,@?^=%&:\/~\+#]*[\w\-\@?^=%&\/~\+#])?';
$Expr 			= 	'/' . $NotAnchor . $NotHTTP . $Domain . $Subdir . '/i';

$Text			= 	preg_replace( $Expr, "<a href=\"http://$0\" title=\"http://$0\" target=\"_blank\">$0</a>", $Result );