如何用替代现在$*替换$*= 1不再受支持

来自perlvar:

在现代Perl中不推荐使用$*,在模式匹配上由/ s和/ m修饰符取代.

如果您可以访问匹配的位置,只需将其添加到结尾:

 $haystack =~ m/.../sm;

如果您只能访问该字符串,则可以使用表达式包围表达式

 qr/(?ms-ix:$expr)/;

或者在你的情况下:

s/\n((\w*\-*\.*\w*\/*)+\:)/$1/gsm;