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

##</code><code>##

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

##</code><code>##

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