open (INPUTFILE, "<:encoding(UTF-8)", "in.txt") or die "Can't open file: $!";
for (my $i = 1; $i < 5; $i++) {
	print "\n-----------------------LOOP $i-----------------------\n";
	while ($line = <INPUTFILE>) {
		print "line $.: $line\n";
	}
}
close INPUTFILE;

##</code><code>##

for (my $i = 1; $i < 5; $i++) {
	open (INPUTFILE, "<:encoding(UTF-8)", "in.txt") or die "Can't open file: $!";
	print "\n-----------------------LOOP $i-----------------------\n";
	while ($line = <INPUTFILE>) {
		print "line $.: $line\n";
	}
	close INPUTFILE;
}

##</code><code>##

print "First loop:\n\n";
while (<DATA>) {
	print;
}
print "\n\nSecond loop:\n\n";
while (<DATA>) {
	print;
}

__DATA__
first line
second line
third line