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