if ($myFile2 =~ /(\d{3})wordTWO/)
    {
      $data2 = $1;
    }