Select Code to Download

"12180" =~ m{
  (?{ local @n = () })
...
  \d
  (?{ @d = @n })
}x;

local @n;
/(.)(?{ ++$n[0] })^/;
@d = @n;

$p = '\w+-\d+';
/$p/;
/$p/;

$p = '\w+-\d+';
for $i (1,2) { /$p/ }

($x,$y) = ('a+', 'b');
for (1,2) {
  /$x$y/;
  ($x,$y) = ('a', '+b');
}