use Inline::Files::Virtual;
my @files = vf_load($0, "^__(?:FOO|BAR)__\n");
foreach $file (@files) {
local *FILE;
print "<<$file>>\n";
vf_open FILE, $file or die "huh?";
while (<FILE>) {
print "> $_";
}
}
print "<<<@files>>>\n";
print "<<<$files[0]>>>\n";
vf_open(FILE, "+> $files[0]");
print FILE "test";
vf_seek(FILE, 0, 0);
print <FILE>;
__END__
__FOO__
This is a
virtual
file
__BAR__
This is another
virtual
file
__FOO__
THIS IS YET ANOTHER SUCH
FILE