I don't see anything particularly wrong with your logic in this code. There was one potential error that our team found: [quote] open (INFILE,'<',$sourceFile)||die "Unable to open file\n"; binmode(INFILE); for (my $j=$noOfBytes;$j<$fileSize;$j+=$noOfBytes) { print "In...