One possible solution is a regexp like the following

my $number = 5731231234; 
my @parts = $number =~ /(.{3})(.{3})(.*)/;
[download]