Regular Expression su mail

[Mich_]

Io farei in questo modo:

$str =~ /.+From(.+)\n/gs;
my $out = $&;

Se non funziona, devi fare un loop:

$_ = $str;
while(/.+?From(.+)\n(.+)$/s) {
  $_ = $2
}
my $out = $1;

Per il significato di $& vedi il man di perlvar