>perl -wMstrict -le
"my $s = 'age 23 name john';
 my @an = $s =~ m{ age \s+ (\d+) \s+ name \s+ ([a-z]+) }xms;
 print qq{@an};
"
23 john