$author = "$author,";
$author =~ s/(.*?),(.*?),/$2 $1,/g;