Добавление текста в случае его отсутствия (Perl REGEXP)

Используя оператор замены Perl (s //), я хотел бы изменить некоторый XML, добавив атрибут к некоторым элементам, если они отсутствуют. Вот пример:

...
<car color="red" owner="john">...</car>
<car color="green" age="3">...</car>
...

Допустим, я хотел бы добавить владельца по умолчанию для бездомных автомобилей. Я безуспешно пробовал следующее:

s/(<car[^>]*)(?!owner="[^"]*")(.*>)|$1 owner="steve"$2/iUg

Любая помощь приветствуется.