Hi
My code is as follows:
open OUTPUT,">text.txt";
for (@list)
{
print OUTPUT ( (split)[3, 8], "\n")
}
close OUTPUT;
open INPUT,"<text.txt";
@list=<INPUT>;
close INPUT;
print "Every second line is:\n";
for ($list = 0, $list < @list, $list+=2)
{
print "@list[$list]\n";
}