my @results;
push @results, $1 while /(~?[^~])/g;