最近又在倒腾正则，perl正则。不算最好的主意，毕竟perl本身在我的工作场景里基本没有。但是写的比较详尽的和正则有关的书籍，mastering regular expression确实可以带读者体会正则乐趣，而它又恰巧主要用perl代码展示正则用法。
以前搞不懂那么多正则转过一篇常用大全，以后还是想自己写写吧，嘿嘿。
下面是随手书中粘来的double word check 觉得好帅。巧妙的地方都注释了下，不早啦要睡啦啦啦啦～

$/ = ".\n";

while (<>) {
    next unless s{
         \b
         ([a-z]+)        #$1,first caught variable

         (
           (?:           #escape this,don't treat it as argument
              \s
              |
              <[^>]+>
           )+            #need at least one of the above but allow more
         )

         (\1\b)
    }

{\e[7m$1\e[m$2\e[7m$3\e[m}igx; #高亮的语法，\e[7m 和 \e[m 

s/^(?:[^\e]*\n)+//mg;
s/^/$ARGV: /mg;
print;
}

上面效果图，嘿哈～