Select Code to Download

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

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