Grazie Mich_ mi hai messo sulla buona strada.
Io ho risolto così, visto che il mittente desiderato era l'ultimo(sicuramente non è molto corretta come procedura però funziona )
codice:
$_= $mail_prova;
while ($_ =~ /From:\s(.*)/g) {
       $mittente = $1;
       }
edit : scusate mi ero dimenticato di chiudere il CODE