Удалить два 0xFF 0xFF байта каждые 0x101 байт в файле

[perl6]

Приветствую. как средствами перла выполнить такую задачу? На ум приходит только открыть файл в бинарном режиме, считать все данные в массив, а потом циклом что ли пройтись?

[RXL]

Эти байты гарантировано есть каждые 257 позиций?

Код: (Perl)

while (my $size = sysread($fh_in, my $buff, 257)) {
    $size = 255 if $size == 257;
    syswrite($fh_out, $buff, $size);
}

[perl6]

Спасибо за идею, буду дальше ковырять сам.

Добавлено через 48 секунд:

Эти байты гарантировано есть каждые 257 позиций?

Должны быть

[Sla]

На ум приходит только открыть файл в бинарном режиме, считать все данные в массив,

Зачем все в массив

один файл на чтение, другой на запись

прочитали в буфер
поменяли
записали
и так пока не искомый файл не прочитан весь

А размер буфера, тот который позволяет система
а точнее буфер чтения