perl -anle 'BEGIN{$"=q{,}} $. > 99990 && print "@F[2..5]"' infile