分割文件分割成多個文件/陣列 - perl的

Question

我想分割文本文件到基於用perl sripting內容的多個文件。 我的文件內容如下......

Header1:123 
    data... 
    1234... 

    SubTitle1:HHHHHHH 
    mmmm 
    aaaaa 

    SubTitle2:QQQQQQQ 
    mmmm 
    aaaaa 

    Header:MMMMMMMMMMM 
    datasadsad... 
    123434324... 

    SubTitle1:HHHHHHH 
    mmmm343343243 
    aaaaa dsfdfds 

    SubTitle2:QQQQQQQ 
    mmmm sff 
    aaaaasfsdf 

我想分割爲低於這個文件....

文件1或陣列或anyobject舉行這次....

Header1:123 
    data... 
    1234... 

    SubTitle1:HHHHHHH 
    mmmm 
    aaaaa 

    SubTitle2:QQQQQQQ 
    mmmm 
    aaaaa 

文件2，如下..

Header:MMMMMMMMMMM 
    datasadsad... 
    123434324... 

    SubTitle1:HHHHHHH 
    mmmm343343243 
    aaaaa dsfdfds 

    SubTitle2:QQQQQQQ 
    mmmm sff 
    aaaaasfsdf 

請幫我在這！

Answer 1

my $fh; 
while (<>) { 
    if (/^Header/) { 
     open($fh, '>', ...) or die $!; 
    } 

    print($fh $_); 
}