in reply to Author separation

That's easy. 
if($author eq "Cheng, Liying, Fox, Janna., and Zheng, Ying. ") {
  $author = "Liying Cheng, Janna. Fox, Ying. Zheng ";
}

[download]
If you want something that works in the general case, then I suggest that you start by showing us what you've tried.

Replies are listed 'Best First'.
Re^2: Author separation
by Shaveta_Chawla (Sexton) on Jun 07, 2012 at 11:01 UTC
    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";

    [download]
    but this is not feasible
[reply]
[d/l]

In Section Seekers of Perl Wisdom