Help for this page

Select Code to Download

Select or download this

$ perl -Mstrict -Mwarnings -E 'my $author = q{Smith, Kristen A.}; $aut
+hor =~ s/([^,;]+),([^,;]+)/$2 $1/g; say $author'
 Kristen A. Smith

Select or download this

$ perl -Mstrict -Mwarnings -E 'my $author = q{Smith, Kristen A.}; $aut
+hor =~ s/([^,;]+),([^,;]+)/$2, $1/g; say $author'
 Kristen A., Smith