in reply to split on every n lines
Employing list utils:
use List::MoreUtils 'part'; chomp(@$_), system("echo", @$_) for (part {$i++/5} <>); [download]