Perl：如何拆分

我的代码如下：

VAR DS 0D
    DC    AL1(045),AL2(286),AL2(117),AL2(290)

我需要拆分此文件并按以下2种格式推送到我的输出文件

format1:
VAR DS  0D
    DC  AL1(045)
    DC  AL2(286)
    DC  AL2(117)
    DC  AL2(290)

format2:
VAR D 
F1  A 045
F2  A 286
F3  A 117
F4  A 290

如何使用Perl执行此操作

但我正在努力设置标志F1、F2、F3、F4

提取

DC

值后

my @dc = qw( AL1(045) AL2(286) AL2(117) AL2(290) );

您可以使用以下选项：

for my $i (0..$#dc) {
   my ($letter, $number) = $dc[$i] =~ /^(.)..\(([0-9]+])\)\z/s
      or die;
   printf("F%-2s %s %s\n", $i, $letter, $number);
}

---

你对哪一部分有意见？到目前为止，您的代码在哪里？我可以拆分并转到下一行。但我正在努力设置标志F1、F2、F3、F4。我们不是“请为我编写代码”网站。相反，这通常是这样的：你写一些代码；你有一个问题；您向我们展示您有问题的代码，并提出具体问题。不，“在Perl中如何将A转换为B”并不是一个特定的问题。