#!/usr/bin/perl use Inline::Files; print while ; print while ; __PEANUT__ Bing Bong Bang __BUTTER__ Foo Bar Baz