Regex & Sed / Perl: corresponde à palavra que NÃO é precedida por outra palavra

Gostaria de usar sedou perlsubstituir todas as ocorrências de uma palavra que não tenha uma determinada palavra na frente.

Por exemplo, eu tenho um arquivo de texto que contém a trama de um filme e desejo substituir todas as ocorrências do sobrenome de um personagem pelo primeiro nome, mas apenas se o primeiro nome não aparecer imediatamente antes do sobrenome.

O texto de exemplo pode ficar assim:

John Smith and Jane Johnson talk about Smith's car.

Eu quero que fique assim:

John Smith and Jane Johnson talk about John's car.

Se eu apenas fizer sed 's/Smith/John/' file, então eu teria:

John John and Jane Johnson talk about John's car.

O primeiro nome que vem antes do sobrenome sempre será o mesmo. Eu não tenho que lidar com John Smithe Frank Smith. Eu só preciso de uma maneira de combinar Smithque não tem Johnprecedente.

Seria fácil com qualquer idioma em que as expressões regulares sejam capazes de olhar para trás. Obviamente, Perl é o primeiro da lista:

perl -pe 's/(?<!John\W)Smith/John/g' <<< "John Smith and Jane Johnson talk about Smith's car."

O ponto fraco é ter mais de um caractere que não seja uma palavra entre "John" e "Smith". Infelizmente um quantificador como +para \Welevaria “comprimento variável não lookbehind implementado” erro.

EDIT .. re seu comentário .. Aqui está um novo script que não se preocupa com (por exemplo) William Smith. Oculta temporariamente os padrões que mantém como Smith (inalterados).

sed -r 's/\<(John) (Smith)\>/\1\x01x\2/g; 
        s/\<Smith\>/John/g;  s/\x01x/ /g'

Se você está preocupado com o Sr. Sra ... então isso funciona.

sed -r 's/\<(John|((M(r|rs|s))\.?)) (Smith)\>/\1\x01x\5/g
        s/\<Smith\>/John/g; s/\x01x/ /g'

Você pode atender a William adicionando seu nome à lista ou , por exemplo.
sed -r 's/\<(William|John|...

Este é o script original

sed -r 's/(^|[[:punct:]] |\<[a-z]+ )(Smith\>)/\1John/'

 sed -r 's/([^John] )Smith/\1John/g;s/([^Jane] )Johnson/\1Jane/g'

O () capturará o não nome antes de um sobrenome, para que eles sejam retrocedidos na substituição.

Editar

@ manatwork, gilles

Você está certo. E se

sed -r 's/(John Smith)/temp1/g;s/Smith/John/g;s/temp1/John Smith/g'

Isso parece fazer o truque.