title: Perl-script to read and print lines from multiple txt files?
body: <p>We have 300+ txt files, of which are basically replicates of an email, each txt file has the following format: </p>
  
  <pre><code>To: blabla@hotmail.com 
  Subject: blabla 
  From: bla1@hotmail.com 
  Message: Hello World! 
  </code></pre>
  
  <p>The platform I am to the script on is Windows, and everything is local (including the Perl instance). The aim is to write a script, which crawls through each file (all located within the same directory), and print out a list of each 'unique' email address in the from field. The concept is very easy. </p>
  
  <p>Can anyone point me in the right direction here? I know how to start off a Perl script, and I am able to read a single file and print all details:</p>
  
  <pre><code> #!/usr/local/bin/perl
   open (MYFILE, 'emails/email_id_1.txt');
   while (&lt;MYFILE&gt;) {
      chomp;
      print "$_\n";
   }
   close (MYFILE);
  </code></pre>
  
  <p>So now, I need to be able to read and print line 3 of this file, but perform this activity not just once, but for all of the files. I've looked into the File::Find module, could this be of any use?</p>