Select Code to Download

  DB<9> %options = ( r => sub { $_[0] =~ s/(a)/A/gr } ) # r is set

...
  DB<14> x @name = $options{r}->('abc')
0  'Abc'
  DB<15>