use Inline::Files;

print while <PEANUT>;
print while <BUTTER>;

__PEANUT__
Bing
Bong
Bang
__BUTTER__
Foo
Bar
Baz