嵌套代码结构解决思路

嵌套代码结构
我在 windows 下使用 strawberry perl, 有如下代码:

Perl code

#!/usr/bin/perl -w
use 5.010 ;

my $x = "have a nice day" ;
$x =~ m{(?{print "."})day$}x ;

但是只输出了一个 "."
精通正则表达式中 p.327 页中有关于此问题的描述, 按照书中所说, 应该输出很多个 "." 才对. 请高手挑错.

------解决方案--------------------
贴下你书中具体的章节，我翻下。手头只有chm版本，没有页码。
------解决方案--------------------
传动装置只在一个位置应用了正则表达式吧