my @ray = split(/~/,$tst_str);
 

##</code><code>##

my @ray = split(/~/,$tst_str,-1);