open (FILE,"file.txt"); while (my $data = <FILE>) { chomp($data); print ("$data\n"); } close(FILE); [download]
In reply to how to read every 10 line from input text file ? by bh_perl