#!/usr/bin/perl -w
opendir (CUR,"/home/olli/2convert") || die "no access";
while ($filename = readdir(CUR))
{
# print "$filename\n";
 open (FILE2WORK,$filename) || die "can't open file: $!";
 while ( $name = <FILE2WORK>)
  {
   chomp $name;
    if ( $name=~/E\-mail/)
        {
          @name=split(/E\-mail \:/,$name);
          print "@name\n"; 
	  print "That's Emails found in Ur files."
	  };
         };
};
closedir(CUR);