my $data = 'NCC045-071-109-SCC021-087-091-011545-';
$data =~ s/([A-Z]+)//;
my $state = $1;
print $state, $1, ' ' while ($data =~ m/(\d+)/g);