Select Code to Download

$string = qq(           # start the quote
             func(1     # push down to second level
...
                  );     # pop up to first level
            );           # finish the quote

$a = $b + $c * ($d + $e * ($f + $g * ($h +)));