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