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