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