误解perl regexp评估

一天的美好时光！
我正在读一本关于perl的书：“编程Perl”由Larry Wall,Tom Christiansen,Jon Orwant撰写.在这本书中,我发现了几个作者没有澄清的例子(或者我当时没有得到).

首先

这仅打印ON.

"adfsfloglig"=~ /.*(?{print "hi"})f/;

但这打印“嗨”TWICE ??怎么解释？

"adfsfloglig"=~ /.*(?{print "hi"})log/;

继续经历甚至使事情变得更糟：

"adfsfloglig"=~ /.*(?{print "hi"})sflog/;

上面的代码串再次打印ONCE这个可怕的“hi”！
大约一个星期后,我完全理解了一件事 – 我需要帮助:)
所以我请你帮助我.

第二个(这是炸弹！)

$_ = "lothiernbfj";

 m/        (?{$i = 0; print "setting i to 0n"})
       (.(?{ local $i = $i + 1; print "ti is $i"; print "tWas founded $&n" }))*
       (?{print "nchecking rollbackn"})
       er
       (?{ $result = $i; print "nsetting resultn"})
 /x;
 print "final $resultn";

这里最终在屏幕上打印的$result等于.*匹配的字符数,但我不再这样了.

当打开调试打印(如上所示)时,我看到,每当新的字符包含在$&中时,$i就会递增. (匹配的字符串部分).

最后,$i等于11(字符串中的字符数量),然后有7次回滚,当.*一次从其匹配字符串返回(7次),因此发生所有模式的匹配.

但是,该死的魔法,结果是设定为$i的价值！我们并没有在任何地方减少这个价值！所以$result应该等于11！但事实并非如此.作者是对的.我知道.

拜托,你能解释一下这个奇怪的perl代码,我很高兴见到了吗？
谢谢你的回答！