DB<17> sub test { print do { 5+4 } }

  DB<18> print B::Deparse->new("-p")->coderef2text(\&test)
{
    use feature 'current_sub', 'say' ...       # yadda shortened
    print(do {                                 # still here
        9
    });
}
##</code><code>##

{
    use warnings;
    use strict;
    my($total);
    foreach $_ (1 .. $end) {
        ($total += do {
            (1 / $_)
        });
    }
    $total;
}

##</code><code>##

  DB<27> print $]
5.024001