use strict;
my $tst_str = "1~2~3~4~5~~~~~~~~~~";
my @ray = split(/~/,$tst_str,-1);
my $len = scalar(@ray);
print "len - $len\n";
__END__
len - 15