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

  DB<138> eval qq( sub rep { "$rep" } )

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