http://www.perlmonks.org?node_id=45670


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;