use Inline::Files::Virtual;

my @files = vf_load("XML.xml", "(?=<FILE>)");

foreach $file (@files) {
	local *FILE;
	print "<<$file>>\n";
	vf_open FILE, $file or die "huh?";
	while (<FILE>) {
		print "> $_";
	}
}