Leser: 20
Quote...
name: "foobar"
alter: 20
...
/^ *name: "/
/"$/
1 2 3 4 5 6 7 8 9 10 11 12 13 14
#!/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;