一个perl扩展正则表达式代码分析

        ((?:d{1,3}.?){4})
        (?=
            (?:
                |(?!1)$re
            )*
            z
        )
        |
    )*
    $re
    $
    /x ) {
    print "$1 matchn";
}