Using a zero width, negative look behind assertion will get you want you want. Read at perlre.

use Data::Dumper;
use strict;

my $str = 'AAA~BB~CCCCC~DDD~';

my @a = split /(?<=~)/, $str;

print Dumper(\@a);
[download]