First, be careful about "odd" names, such as "Jean-Michel Paris" and "Mary de Konig".

I often do quick and dirty parsing jobs like this:

my $name = qr/([\w_-=]+)\s*/;
my $enum = qr/(([\d.-+,])\s*/;
<p>
while ( <> )
{
  if ( my @captures = /$name$name$enum/ )
  {
    do_something_here(@captures);
  }
}
[download]