$author = join '; ',
    map { join ' ', reverse split /, / }
    split /; /, $author;

##</code><code>##

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