my @results = $string =~ m!([^~]+)!g;