This code can also be used::

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