#!/usr/local/bin/perl

    my $datafile = "./Hotel_Description_FR.txt";

    open(WRITEIT, "$datafile.new") || die "Error writing $datafile.new. Reason: $!";
     while (<READIT>) {
      print $_;
     }
    close(WRITEIT); 

  print qq|done...|;