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