my @results = grep {$_} split /([~]*?[^~])/, $input;