while (<F1> && $line_stop++ < $line_no) { s/\r\n//;print $_; }