perl -ne 'BEGIN{$s="file000"} open F, ">". $s++. ".txt" unless ($.-1)%5; print F' file Creates: file000.txt file001.txt file002.txt ...