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