use warnings;
use strict;

my $link =  'https://drive.google.com/file/d/1ZhXQYI-4fgx5hredv7Z0Tl2sszvN92oV/view?usp=sharing';
my $text = <<TEXT;
Some sample text to strip $link from.
Sometimes the sentence ends with the $link. We don't want to remove the period
if that happens, or other punctuation in similar situations.
TEXT

$text =~ s~\bhttps?://\S+([.)?!,]\s?|$|\b)~...$1~g;

print $text;

##</code><code>##

Some sample text to strip ... from.
Sometimes the sentence ends with the .... We don't want to remove the period
if that happens, or other punctuation in similar situations.