Thank you for your response graff. Finally I was able to remove the character that was causing this error "Code point \u0016 is not a valid character in XML".

I just added some code before

my $out = IO::File->new()

The code I added is as below:

`strings $20150625163139.txt > Temp.txt`;

my $temp_file = "Temp.txt";
open($fh, ">", $20150625163139.txt) or die "Could not open file '$file
+name' $!";
open(my $fh1, "<", $temp_file) or die "Could not open file 'Temp.txt' 
+$!";

while(<$fh1>){
    print $fh $_;
}
close $fh;
close $fh1;
unlink $temp_file;
[download]

So "strings $filename > Temp.txt" removes that character causing error and like many occasions UNIX came to my help this time as well :-)

Thanks you all for your inputs! If there is any way to mark a node as closed, please let me know and I'll mark this one as closed.