seek (READFILE,0,0);
read (READFILE, $buffer, 1000, 0);



foreach ($buffer =~ m/[\w|\W]*[\s|\S]+/gi ) 

  {

     $wordcount++;

  }