perl - 将由 < > 分隔的子字符串分配给数组

Question

是否可以将由 . 分隔的文本块的部分分配给数组< >。例如，

sometexthere <email@email.com> more text
more text moretext <another@email.com>

应该产生

@array = qw(email@email.com another@email.com);

我怎样才能做到这一点？

Answer 1

my @array = $text =~ /<([^<>]+)>/g;