split m{(?>>)}, $s # GRT split (/^(?=>>> )/m, $s) # ST