Do you mean that the opening parenthesis is optional in the text you are spliting? If so, you can use a '?' quantifier to make the opening parenthesis "zero or one of" but you also have to use a negative look behind to make sure you don't split '(' from 'a)'. I've added the 'x' modifier to the pattern so I can space it out and make it more readable.
knoppix@Microknoppix:~$ perl -E '
> $line = q{(a) Line 1. b) Line 2. (c) Line 32. d) Line 42.};
> @arr = split m{ (?<! \( ) (?= \(? [a-z] \) ) }x, $line;
> say qq{>$_<} for @arr;'
>(a) Line 1. <
>b) Line 2. <
>(c) Line 32. <
>d) Line 42.<
knoppix@Microknoppix:~$
I hope this is helpful.
Update: Oops, looks like I replied to myself rather than the OP's subsequent question. Please ignore this and consider my reply to him.
|