Perl中使用正則表達式，但加入的分隔符到輸出

Question

我有這樣一個字符串分割字符串：

za b c 
    x y 
    x z 

y 

a b c 
    x y 
    x z 

有沒有辦法根據換行+ somecharacter拆分，但保留該字符到下一個標記？我的意思是我所要的輸出只有兩個標記爲：1）ZA ...... 2）亞....

Answer 1

獲取正則表達式look ahead而不(?=...)捕捉：

my @lines = split /\n(?=[a-z])/, $input;