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