DB<120> $_="X"
 => "X"

  DB<121> s/X/@{[ $sub->() ]}/
 => 1

  DB<122> $_
 => "nope"