perl -n -i.bak -e 'print if /^From/..-1' mail_file