while (/name:\s*(\w+)\s+age:\s*(\d+)/g) {
  my ($name, $age) = ($1,$2);
  # ...
}

### becomes

while (my ($name, $age) = /name:\s*(\w+)\s+age:\s*(\d+)/G) {
  # ...
}

##</code><code>##

while (my ($name, $age) = /name:\s*(\w+)\s+age:\s*(\d+)/g) {
  # ...
}