Program exposing the current problem with runtime heredoc de-indenting

code.pl

say qq:to/END/;
    Line 1
    {foo}
    Line 4
    END

sub foo { "Line 2\nLine 3" }