$clip = ClipGet()
If FileExists($clip) Then
	$txt = FileRead($clip)
Else
	$txt = $clip
EndIf
$html = StringRegExpReplace($txt, "(\r\n){2,}", "\1")
$html = StringReplace($html, "&", "&")
$html = StringReplace($html, "<", "&lt;")
$html = StringReplace($html, ">", "&gt;")
$html = StringRegExpReplace($html, "(http://|https://|ftp://)(\S+)", '<a href="\0">\2</a>')
$html = StringRegExpReplace($html, "(.+)(\r\n|\z)", "<p>\1</p>\2")
ClipPut($html)
Send("^v")
ClipPut($clip)
Exit