sub{print qq[sub{print qq[$_[0]]}->(q[$_[0]])]}->(q[sub{print qq[$_[0]]}->(q[$_[0]])])

##</code><code>##

sub {
  print qq[
    sub {
      print qq[
        $_[0]
      ]
    }->(
      q[
        $_[0]
      ]
    )
  ]
}->(
  q[
    sub {
      print qq[
        $_[0]
      ]
    }->(
      q[
        $_[0]
      ]
    )
  ]
)