use strict;
my $str = 'Can support \\r \\n to the newline format.
<div yne-ht: 1.75; foize: 14px;"><a href="https://chrome.google.com/webstore"><span style="font-sit-family:57);"> </span><a href="https://microsoftedge.microsoft.com/addons"><span style>微软商店</span></a><span st 57, 57);"> </span><a href="https://crx4chrome.com" n style="font ><span style="font
!(.*?href=")(https?://[^"]*)!$2\\r!gm
!(.*?href=")(https?://[^"]*)!$2\\n!gm
';
my $regex = qr@(.*?href=")(https?://[^"]*)@mp;
my $subst = '$2\\r';
my $result = $str =~ s@$regex@$subst@rg;
print "The result of the substitution is' $result\n";
Please keep in mind that these code samples are automatically generated and are not guaranteed to work. If you find any syntax errors, feel free to submit a bug report. For a full regex reference for Perl, please visit: http://perldoc.perl.org/perlre.html