my ($lastname, $firstnames, $title) = $name =~ /^\s*([^,]+),\s*(.+)\s+(\S+)\s*$/;