($name, $city, $state, $zip) = (split / /, $_)[4,5,6,8];