>perl -ne "BEGIN{open F,'>0.txt'}print F $_;unless($.%5){close F;open F,'>'.($./5).'.txt';}" file.txt