my $data = 'NCC045-071-109-SCC021-087-091-011545-';
$data =~ s/([A-Z]+)//;
my $state = $1;
my @counties = split('-', $data);

print join(' ', map { $state.$_; } @counties), "\n";