From your descripton and examples, you might be able to simply assume that the last space delimited "word" is the title? In which case something like

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

might work for you. (That's untested but should give the general idea).

If that fails, post a few examples of those that it fails on and someone will probably be able to improve it for you.

Update: I did a little testing and that regex seems to work provided that the title consists of a single "word" where word is defined as a string on non-space chars, and that is the last non-space string on the line. If you need to seperate out any middle initials, or if there are some without the title present, you'll need to match that word against a list (hash) of possible titles and decide whether it is part of the first names or initial or the title on that basis. If David Robert Smith uses his initials and omits his title, you have a problem:)

That was it, when I assume that all titles are at least two characters to avoid middle initials with no title people (Smith, John Q). Many Thanks