Help for this page

Select Code to Download

Select or download this

  DB<1> $t = 'teach an old dog new tricks'

...

  DB<3> x $t
0  'teach an old dog new tricks'

Select or download this

$t =~ s/(dog)/@{[ scalar(reverse($1)) ]}/g