The following regex will remove any word or phrase that duplicates its immediate predecessor:

$string =~ s/ \b (.+) \b \s* \1 /$1/gx;
[download]

But note that an address such as “Long Island City, NY NY” will be reduced to “Long Island City, NY”.

Hope that helps,