$author =~ s/([^,;]+),([^,;]+)/$2, $1/g;