my @results;
push @results, $1 while /(~?.)/g;