my $text = <<'END';
Name: Alice Allison Age: 23
Occupation: Spy
Name: Bob Barkely Age: 45
Occupation: Fry Cook
Name: Carol Carson Age: 44
Occupation: Manager
Name: Prince Age: 53
Occupation: World Class Musician
END
my %age_for;
while ( $text =~ m<Name:\s+([[:alpha:] ]+?)\s+Age:\s+(\d+)>g ) {
$age_for{$1} = $2;
}
print Dumper(\%age_for);

##</code><code>##

$VAR1 = {
‘Bob Barkely’ => ‘45’,
‘Alice Allison’ => ‘23’,
‘Carol Carson’ => ‘44’,
‘Prince’ => ‘53’
};