复制代码 代码如下:

#!/usr/bin/perl

use strict;

use warnings;

use re 'debug';

sub test {

my $str = "123456789";

print join(":", split /(?<=...)/, $str);

}

test();