% perl -ne 'if(/^From /){open F,">msg".++$m}print F' mbox