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