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