title: Perl regex email address
body: <p>Here is my pseudo code for my email regex:
  multiple characters + one @ symbol + multiple characters + one . symbol + 2 to 6 character word</p>
  
  <p>1 space must be before and after this email
  you can have multiple emails per line and read entire file for emails.</p>
  
  <p>So far:</p>
  
  <pre><code>open (MYFILE, 'data.txt');
  while (&lt;MYFILE&gt;) {
      chomp;
      my @words = split(' ');
      foreach my $word (@words) {  
          if($word =~ /.+@.+\..{2,6}/) {
              print "$_\n";  
          }
      }
  }
  </code></pre>
  
  <p>My problem I think is with my regex and also with my reading of the file. 
  I think I am making each line a string because some results like blah@blah.com  blah are showing up so the words are not seperated?</p>