the
quick
brown
fox
jumped
over
the
unfortunate
dog

##</code><code>##

#! 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;

##</code><code>##

13:01 >perl 605_SoPW.pl

fox jumped over

13:06 >