Select Code to Download

m{
  (?{ [ {}, 0 ] })
...
  sprintf "length: %d digits: %s quantity: %d\n",
    length($str), $str, $count;
}

m{
  # set up $^R to hold a hashref and a number.
...
  # the entire string.
  (?!)
}x;