in reply to How do I match this without lookbehind?

Perl v5.6.0 does suport lookbehind
split /(?<=[^~])/ #or split /(?<!~)/ #or /(~?.)/g