Select Code to Download

  DB<137> $rep = '<$1>'

...
  DB<139> p "abc" =~ s/(.)/rep()/rge
<a><b><c>
  DB<140>

  DB<140> p B::Deparse->new('-q')->coderef2text(\&rep)
{
...
    '<' . $1 . '>';
}
  DB<141>