Fixed state names with spaces and ampersands, redid perl scripts