my %address;

while (<DATA>) {
    if ( /^(To|From|Contact):.*?(<.*?>)/ ) {
        $address{$1} = $2;
    }
}

for my $field ( qw/To From Contact/ ) {
    if ( exists( $address{$field} )) {
        print "The $field address is $address{$field}\n";
    }
}
[download]