binmode STDIN;
binmode STDOUT;
$/ = \8192;  # set "input record separator" to 8KB per read

while (<>) {
    tr/\xa7/\x00/;
    print;
}