my $count = my @order = $string =~ /%(.)/sg;