12345678910
#!/usr/bin/perluse warnings;use strict;my $string = "111222333";$string =~ m/(\d{3})(\d{3})(\d{3})/;print "$1\n$2\n$3\n";