如果我要实现应该怎么写? 我是用开数组的方法完成的，谢谢。

films.txt的文档如下，

一堆简介

曲目
01.不再为你美丽的女孩
02.懂得爱
03.跟夏天说再见



cuelist.txt如下，需要把films.txt的曲目去替换cuelist.txt的TRACK01,02,03

FILE "CDImage.ape" WAVE
  TRACK 01 AUDIO
    TITLE "TRACK01"
    PERFORMER "裘海正"
    INDEX 01 00:00:00
  TRACK 02 AUDIO
    TITLE "懂得爱"
    PERFORMER "TRACK02"
    INDEX 00 04:00:65
    INDEX 01 04:02:25
  TRACK 03 AUDIO
    TITLE "TRACK03"
    PERFORMER "裘海正"
    INDEX 00 08:04:47
    INDEX 01 08:06:07


【 在 tgfbeta 的大作中提到: 】
: perl -lane 'print $1 if /\d+\.(.*)/;' films.txt
--
FROM 124.78.12.*