Perl v5.6.0 does suport lookbehind

 
split /(?<=[^~])/
[download]

or do you mean split /(?<=[^~])(?=~)/

Originally posted as a Categorized Answer.