#!/usr/bin/perl

use strict;
use warnings;
use Inline::Files;

while(<FILE>) {
        print "FILE: $_";
}

__FILE__
File 1
Hello

__FILE__
File 2
World

__OTHER_FILE__
Other File 1
Good-bye World!

__FILE__
File 3
Hello again!

__END__