[Israel.pm] How to "split" but keep the delimiter

[Yossi.Itzkovich at ecitele.com]

Hi,

I know I can do it without "split", but still, by using split, how can I
still leave the delimiter in the returned list ?

For example:
my @out=split (/instance No \d+/ , $text)

I want to iterate over @out, but still having that \d in place


Thanks

Yossi