#!/usr/bin/perl 
 
use strict; 
use warnings FATAL => 'all'; 
use Email::Find; 
use File::Slurp; 
 
my @email_addresses; 
my $finder = Email::Find->new(sub { 
                                    my($email, $orig_email) = @_; 
                                    push @email_addresses, $email->format; 
                                }); 
 
my $file_contents = read_file('rfi.txt'); 
$finder->find(\$file_contents); 
 
print join("\n", @email_addresses);