#!/usr/bin/perl

use strict;
#use locale;

my %src=();
open (FILE1,'eng_text1.txt') or die ("Pruefen Sie bitte die Name.");
open (FILE2,'eng_text2.txt') or die ("Pruefen Sie bitte die Name.");
  
  while(<FILE2>) {
  chomp;
  s/\s{2,}/ /go;
  $src{$_}=1;
  }

#close (FILE2);
my $dst;
  
  while(<FILE1>) {
  $dst=$_;
  chomp;
  lc;
  s/[:punct:]//go;
  s/\s{2,}/ /go;
  print $dst unless ($src{$_});
  }
#close(FILE1);