use strict;
use warnings;

open (IN, "/home/nikol123/indri-5.6/runquery/trec7_4collections.txt") or die;

while (my $file = <IN>){
 my @rows = split(/\n/, $file);
 print "$rows[0]\n";
}
close IN;