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