#! perl
use strict;
use warnings;
use Tie::File;

my $filename = 'data.txt';
tie my @lines, 'Tie::File', $filename or die "Cannot tie file '$filename': $!";
chomp(my @text = @lines[3 .. 5]);
print "\n", join(' ', @text), "\n";
untie @lines;