m/(https?:\/\/.*?(?:'|"))/
这种模式可能匹配〜100次。什么是常见的perl惯用法/一种快速的方法来迭代所有捕获组匹配的列表？
while ($x =~ /(\w+)/g) { print "Word is $1,ends at position ",pos $x,"\n"; }
你可以使用while和g修饰符迭代所有匹配，$ 1你获得捕获组1的内容，在这个例子中，你也得到了pos的位置。
