>perl -wMstrict -le
"my $s = 'age 23 name john';
 my @an = $s =~ m{ name \s+ ([a-z]+) | address \s+ (\d+) }xms;
 defined or $_ = 'UNdefined' for @an;
 my $captured = join ':', @an;
 print qq{:$captured:};
"
:john:UNdefined: