Perl代码该怎么写?有一个文本文件1.txt,有60行,格式如下x aaaaaaaaaaax bbbbbbbbbbb.y aaaaaaaaaaay bbbbbbbbbbby cccccccccccccy dddddddddddy eeeeeeeeeeey ffffffffffffffffffffff.y开头序列的数量是 x开头的3倍,即x开头的有15

Perl代码该怎么写?有一个文本文件1.txt,有60行,格式如下x aaaaaaaaaaax bbbbbbbbbbb.y aaaaaaaaaaay bbbbbbbbbbby cccccccccccccy dddddddddddy eeeeeeeeeeey ffffffffffffffffffffff.y开头序列的数量是 x开头的3倍,即x开头的有15
Perl代码该怎么写?
有一个文本文件1.txt,有60行,格式如下
x aaaaaaaaaaa
x bbbbbbbbbbb
.
y aaaaaaaaaaa
y bbbbbbbbbbb
y ccccccccccccc
y ddddddddddd
y eeeeeeeeeee
y ffffffffffffffffffffff
.
y开头序列的数量是 x开头的3倍,即x开头的有15行,y开头的有45行.
现在要将这个文件分成5等份,且要保持每等分中y开头的序列仍是x开头序列的三倍,代码该怎么写?
要求输出格式为5个文本文件,每一个文件12行（x3行,y9行）,格式如下:(5个文件合起来是完整的1.txt)
x aaaaaaaaaaaaa
x bbbbbbbbbbbbb
x ccccccccccccccc
y aaaaaaaaaaaaa
y bbbbbbbbbbbbb
.
y iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii

Perl代码该怎么写?有一个文本文件1.txt,有60行,格式如下x aaaaaaaaaaax bbbbbbbbbbb.y aaaaaaaaaaay bbbbbbbbbbby cccccccccccccy dddddddddddy eeeeeeeeeeey ffffffffffffffffffffff.y开头序列的数量是 x开头的3倍,即x开头的有15
open FILE1, "<1.txt";
@file = <FILE1>;
for $i (1..5)
{
    open FILE, ">1$i.txt";
    for $j (0..2)
    {
        print FILE $file[$i*3-$j];
    }
    for $k (0..8)
    {
        print FILE $file[$i*9-$k+15];
    }
    close FILE;
}