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