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

##</code><code>##

$count{$_}++ for my @order = $string =~ /%(.)/sg;