I want to replace the entire string.

Then don't use s///, use a plain match plus an assignment instead.

$links1 =~ /<\s*a\s*(href\s*=\s*".*?").*>/is and $links1 = $1;
[download]