or download this
use strict;
use warnings;
...
-------
<au><surname>Coff</surname>, <givenname>D.,</givenname></au>, <au><sur
+name>Coff</surname>, <givenname>D.,</givenname></au>
<au><givenname>D.,</givenname>, <surname>Coff</surname></au>, <au><giv
+enname>D.,</givenname>, <surname>Coff</surname></au>