Select Code to Download

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

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