Shell Programming and Scripting

Ok. I for the life of me cant figure out how to do this. I need Help. So here is what I'm trying to do. I have a block of text. They are FIPS codes for counties. Below is the block. There are probably a few ways to do this. The first line starting with ARC021....... this line is a list of Arkansas counties, until you get to the part that says MOC069, those two (069 and 155) are Missouri counties. You get the idea. MSC### is Mississippi, and TNC### is Tennessee. Each state has a prefix number that applies to the code. Its not shown here, however I know them. For example, for Arkansas its 05 for Tennessee its 47. So I need to read this block of text and output the appropriate prefix number in front of the county number and output them all to a file. For instance I'll do the first 3 in line1. Also, the number of lines can change. They will always be formatted this way, just that there may only be two lines or just one.

Desired Output:
05021
05031
05035........

So essentially the code would know the state by reading the "ARC", "MOC", "MSC", and "TNC", then going from left to right, apply each state prefix to each county code, then output to a file. The very last 6 digit number in the block of text is not needed. Confused now?

Sample Block of Text:
ARC021-031-035-037-055-075-077-093-107-111-121-123-MOC069-155-
MSC003-009-027-033-071-093-107-119-135-137-139-143-145-161-
TNC017-023-033-039-045-047-053-069-071-075-077-079-095-097-109-113-131-
157-167-183-042000-

Code:

$ cat country.list (for example)

ARC 05
TNC 47
MOC 22
MSC 88

$ cat FIPS.list

ARC021-031-035-037-055-075-077-093-107-111-121-123-MOC069-155-
MSC003-009-027-033-071-093-107-119-135-137-139-143-145-161-
TNC017-023-033-039-045-047-053-069-071-075-077-079-095-097-109-113-131-
157-167-183-042000-

run the awk command, you will get the result.

Code:

awk 'NR==FNR{a[$1]=$2;next} 
     {if (length($1)>3) {country=substr($1,1,3);code=substr($1,4);print a[country] code} 
         else {print a[country] $1}
     }' country.list RS="-" FIPS.list

Thanks Man! Works like a charm.