#!/usr/bin/perl

use warnings;
use strict;

my $string = "111222333";

$string =~ m/(\d{3})(\d{3})(\d{3})/;

print "$1\n$2\n$3\n";