使用 use re 'debug' 查看正则表达式的匹配过程

#!/usr/bin/perl

use strict;
use warnings;
use re 'debug';

sub test {
    my $str = "123456789";
    print join(":", split /(?<=...)/, $str);
}

test();