perl -pe 'close ARGV if $. == 5 or eof' file1 file2 ...