open($infile, '<', './file') or die "cannot open file: $!";
binmode $infile;
open($outfile, '>', './modifiedfile') or die "cannot open modifiedfile: $!";
binmode $outfile;

local $/; $file = <$infile>;
$file =~ tr/\FF*{16}//d;   
print $outfile $file;


close ($infile);
close ($outfile);