I just realized I missed an aspect of your question... Here is a one that actually works. :)

my $data = 'NCC045-071-109-SCC021-087-091-011545-';
my $state;
while ($data =~ m/([A-Z]+)?(\d+)/g) {
    last if (length($2) == 6);
    $state = $1 unless (! defined $1);
    print $state, $2, ' ';
}
[download]

Finally that should be better.