open(F,"FILE_LAT_MOD_DIR") or die $!;
@array_LAST_MOD_FILE=<F>;
close(F);
my $str_file=join("",@array_LAST_MOD_FILE);
while($str_file =~ m/<entry>(.*?)<\/entry>/i) {
        my $match=$1;
                chomp($match);
                my @arr_find=`find \"$match\" -iname *END*.txt -type f`;
                my $length=@arr_find;
                print "LENGTH OF THE ARRAY=$length|\n";
                if($length eq 0) {
                        sleep(1);
                        next;
                }
                else {
                        print "SEEMS for |$match| END.txt PRESENT....Deleting from string..\n";
                        $str_file=~s/<entry>$match<\/entry>//is;
                }
}