>perl -wMstrict -le
"my $s = 'age 23 name john';
 my @an = $s =~ m{ name \s+ ([a-z]+) | address \s+ (\d+) }xms;
 my $captured = join ':', @an;
 print qq{:$captured:};
"
Use of uninitialized value in join or string at -e line 1.
:john::