#!/usr/bin/perl
use strict;
my $i;
my @values;
my $string ="age 42 name Utilitarian FamilyName";
($i,@values)= split(/age|name/, $string);
for ($i=0;$i<@values;$i++){
   print "$i, $values[$i]\n";
}