perl -pe 'open STDOUT, ">out".++$n if /^From /' <in >before-first-output