С помощью команды xargs

Когда вы добавляете данные в файл, который читаете, вы рискуете войти в бесконечный цикл и постоянно увеличивать размер файла по мере того, как вы в конечном итоге обрабатываете данные, которые вы написали ранее.

Вы можете защититься от этого с помощью таких вещей, как:

perl -pe '
  BEGIN{seek(STDOUT,0,2);$end = tell STDOUT}
  last if tell(ARGV) > $end;
  s/i/o/' < file >> file

Внутри Perl-скрипта:

open OUT, ">>", "file" or die "open file: $!";
open IN, "<", "file" or die "open file: $!";
seek(OUT,0,2) or die "seek: $!";
$end = tell OUT;
while (tell IN < $end && <IN>) {
  s/i/o/;
  print OUT $_;
}
close IN;
close OUT;