perl -pi.bak -e 's/^(?=From )(?![^\@]+\@)/>/' mailbox.file