Help for this page

Select Code to Download

Select or download this

while ($x =~ m/%(.)/g) {
  push(@order, $1);
  $count{$1}++;
}