Невозможно перенаправить вывод ввода-вывода в FreeBsd

perl -nMFatal=open -e '$l = $_;
   @ARGV and open my $fh, "<", $ARGV[0];
   print +(/^%\hBEGIN/ ? $a=0 : $a++) == 1 ? $l : $_ while <$fh>;
' foobar.txt input.txt

• Для каждой строки, прочитанной из файла foobar.txt, мы открываем лексический дескриптор файла $fh для файла input.txt. Причина, по которой он должен быть лексическим, заключается в том, что он закрывается сам по себе, когда считывается следующая строка ввода из foobar.txt.
• Мы инициализируем счетчик $a, когда видим % Строка BEGIN в файле input.txt. И через 1 строчку после этого заменяем строчку в input.txt на строчку из foobar.txt.
• Порядок аргументов следующий: foobar.txt и затем input.txt.
• Мы включили прагму Fatal.pm, которая автоматически обрабатывает ошибки при открытии файлов.

some text --
% BEGIN
blabla
2 3
blabla
blabla
% END
some text --
some text --
% BEGIN
blabla
8 9
blabla
blabla
% END
some text --
some text --
% BEGIN
blabla
1 2
blabla
blabla
% END
some text --