#!/usr/bin/perl

use strict;
use warnings;

my $text = qq~...
name: "foobar"
alter: 20
...
name: "test"~;

my @names = $text =~ /\n name: \s+ "(.*)"/xg;

print join "::", @names;