in reply to How do I match this without lookbehind?

Sometimes split is not the best answer for splitting:
my @results;
push @results, $1 while /(~?.)/g;

[download]

In Section Seekers of Perl Wisdom