从$*IN输入多行文档的最佳方式是什么- perl6

Question

我需要输入多个HERE-DOCs。我的代码有2个while循环。内部循环用于获取多行here-doc。但是在我输入Control-D完成一个here-doc之后，内部的while循环不再运行，而外部的循环无限运行。修复它的最好方法是什么？

while True {
    my $y = ""; 
    my $x = 32;
    while $x=$*IN.getc { 
        $y = $y ~ $x; 
    }
    say "==========";
    say "[$y]"; sleep 2;
}

为什么在我将$x重置为32之后，$x仍然是EOF？为什么EOF会被困在$*IN中？谢谢你的帮助。