in reply to Split on first of several

Use the three-argument form of split: 
split /0/, $var, 2;

[download]

In Section Seekers of Perl Wisdom