Splitting Data from a list

I have an address list that each address is in one cell. How can I seperate the address, city, state, and zip when they vary so much? I have included a sample from the list below.

320 PLUS PARK BLVD NASHVILLE TN 37217-1001
806 TWIN CITY AVE SPRINGDALE AR 72764-7083
1415 MURFREESBORO RD NASHVILLE TN 37217
300 WILMOT RD DEERFIELD IL 60015-4600
4325 AMNICOLA HWY CHATTANOOGA TN 37406-1014
2505 WEST PARWAY DRIVE RUSSELLVILLE AR 72801
675 PONCE DE LEON AVE NE ATLANTA GA 30308-1829
2035 N COLLEGE AVE FAYETTEVILLE AR 72703-2613
PO BOX 45009 SALT LAKE CTY UT 84145-0009

one option:

If Address is in A1:

then in B1:

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,C1,""),D1,""),E1,"")

in C1:

=SUBSTITUTE(SUBSTITUTE(TRIM(MID(A1,FIND("^^",SUBSTITUTE(A1," ","^^",LEN(A1)-LEN(SUBSTITUTE(A1," ",""))-2)),255)),E1,""),D1,"")

in D1:

=SUBSTITUTE(TRIM(MID(A1,FIND("^^",SUBSTITUTE(A1," ","^^",LEN(A1)-LEN(SUBSTITUTE(A1," ",""))-1)),255)),E1,"")

in E1:

=TRIM(MID(A1,FIND("^^",SUBSTITUTE(A1," ","^^",LEN(A1)-LEN(SUBSTITUTE(A1," ","")))),255))

each copied down.

Edit: Noticed that I didn't extract City... revised solution.