用于读取数组并将特定模式从第一个数组放到第二个数组的perl脚本

我试图编写一个perl脚本，将数据读入一个数组，该数组是以下命令的输出：

my @a = system "p4 changes -u";

现在数据已经进入数组@a，看起来是这样的：

change 256789 on date.. by user@workspace 'some description'
change 256788 on date.. by user@workspace 'some description'
..........................................................
...........................................................
.
.
..
...

台词太多了

现在，我想做的是将每个条目的“

some description

”字段放入另一个数组，然后在其中附加一些常用文本。
任何关于如何做的想法，我对Perl都是比较新的，因此没有太多关于如何做的想法。

执行命令，但不捕获输出。要捕获输出，可以使用或运算符

#!/usr/bin/env perl

use strict;
use warnings;

my @descriptions;
for (qx{p4 changes -u}) {
    chomp;
    push @descriptions, /(?<=')(.+)(?=')/;
}

#/usr/bin/env perl
严格使用；
使用警告；
我的描述；
for（qx{p4更改-u}）{
咀嚼；
按@descriptions，/（？可能如下所示：

@b = map { /('[^']+')/; "abc $1 xyz"; } @a;
print "$_\n" for @b;