if ( $_ =~ /From:/ ) {
    my $line = $_;
    my @addr;
    $line =~ s/^\w+\:(.*)$/$1/gs;
    push(@addr, Mail::Address->parse($line));
    $address = $addr[0]->address();  
    $debug_text .= "Found address at line $.: $string\n";
}