Bravo...

I was extracting with

 ( $last, $first ) = ( $name =~ /^(.+),(.+)*/ );
[download]

And I should have used

 ( $last, $first ) = ( $name =~ /^(\w+),\s*(\w+)*/ );
[download]

Thanks !

Update

And in fact, the above is not working except in simple case where first name has no space in it.

($name, $firstname) = ($value=~/(.+),\s*(.+)*/);
[download]

works better since it takes first name like "J. F.", "Tim Jr.", or norwegian name with funny things on some character.

F.