Re^2: Author separation

[Shaveta_Chawla]

I have used this code:

$author = "Cheng, Liying, Fox, Janna., Zheng, Ying.";
@author = split(',' , $author);
$length = scalar(@author);
$l = 0;
$j = 1;
for($i=0; $i<$length/2 ; $i++)
{

        $author1[$i]= "$author[$j] $author[$l]";
        $l = $l+2;
        $j = $j+2;
}
$author = join (',' , @author1);
print "$author\n\n";

but this is not feasible