使用Perl捕获输出，直到找到特定模式

I feel like I am missing something very simple here, but this is the first time I've needed to do this and am having trouble finding an example.I feel like I am missing something very simple