x <- "This is a URL: https://t...content-available-to-author-only...t.com/ThisIsAURL !"
trimws(gsub("https?://\\S*(*SKIP)(*F)|[[:punct:]]+", " ", x, ignore.case=TRUE, perl=TRUE))