Like grep. I'd use split, splitting on whitespace.

This will give you a list (which may have one element). Since your list doesn't contain surnames, I'd filter the list grep to eliminate initials, except when their elimination leaves nothing (I know people who use initials in lieu of their given names).

I've got a sample here:

#!perl

use strict;

use warnings;

my @names = (    'J Q', 'G Gordon', 'Mary Jane', 'Tommy K', 'Madonna',
        'George W.', 'Jacques-Yves');

foreach my $name (@names){

    my @nl = split(/\s+/, $name);

    my @list = grep { ! /^[A-Z][^A-Z]*$/i} @nl;

    pop(@nl) if (@list and $#nl > 0 and $nl[-1] =~ /^[A-Za-z][^A-Za-z]
+*$/);

    $name = join(' ', @nl);

    }

print join("\n", @names) . "\n";
[download]

J Q
G Gordon
Mary Jane
Tommy
Madonna
George
Jacques-Yves
[download]

I know it could be both better written and much shorter, but it's intended to be a demonstration, not production code.