perl заменить строку в файле.

Ага.

-i: Modifies your input file in-place (making a backup of the
    original). Handy to modify files without the {copy,
    delete-original, rename} process.

с наименьшими затратами на символы

Если это не однострочник, то цель совершенно неправильная. Лучше добавить три лишних строчки для понятности

да уже переписал

open(FILE, '/etc/locale.gen') or die $!;
my @array = <FILE>;
close(FILE);

my @newlines;
foreach(@array) 
{
   $_ =~ s/^#\sen\wUS.UTF-8\sUTF-8/en_US.UTF-8 UTF-8/g;
   push(@newlines,$_);
}

open(FILE, ">/etc/locale.gen") or die $!;
print FILE @newlines;
close(FILE);

Если это не однострочник, то цель совершенно неправильная

Да обычный сценарий в котором нужно выполнить это действие. Можно конечно было и на баше написать. Решил перл поизучать. Да и вот это быстрее выполняется, чем код сверху:

sed -i 's/# en_US.UTF-8 UTF-8/en_US.UTF-8 UTF-8/g' -i /etc/locale.gen

добавить три лишних строчки для понятности

суть куска на баше

echo 'locales locales/locales_to_be_generated multiselect en_US.UTF-8 UTF-8' | debconf-set-selections
echo 'locales locales/default_environment_locale select en_US.UTF-8' | debconf-set-selections
sed -i 's/# en_US.UTF-8 UTF-8/en_US.UTF-8 UTF-8/g' -i /etc/locale.gen
dpkg-reconfigure --frontend=noninteractive locales

да уже переписал

1. Не используй bareword для file handle - в первой версии было правильно (open my $fgh ...)

2. Как подсказали выше, правильный алгоритм - «copy, delete-original, rename», иначе посторонний процесс, имевший несчастье открыть файл в процессе работы твоей программы, прочитает его в промежуточном состоянии

Да и вот это быстрее выполняется, чем код сверху

Еще бы, ты же записываешь строки во временный массив, а надо их сразу в выходной файл писать. Кроме того, в перловой регулярке стоят \s, а в седовой литеральные пробелы.

По-хорошему надо заэкранировать в регулярке точку, так как имеется в виду литеральная точка а не произвольный символ

Так как в данном примере идет посимвольная замена, а фичи регулярных выражений не используются (по крайней мере в sed ты обошелся без «^»), то можно заменить s на tr, будет еще шустрее

Решил перл поизучать.

Открой для себя CPAN, e. g. Path::Tiny:

use Path::Tiny;
my $file = path( 'filename' );
$file->spew_utf8( map( { $_ =~ s/.../.../r }  $file->lines_utf8() ) );

Как правильно подсказал анонимус из первого камента. Использовать ключи -i -pe
В скрипте это может быть эквивалентно такому

BEGIN { $^I = ""; }
LINE: while (defined($_ = <ARGV>)) {
  #сюда s///
  s/^#\sen\wUS.UTF-8\sUTF-8/en_US.UTF-8 UTF-8/g;
}
continue {
    die "-p destination: $!\n" unless print $_;
}

Спасибо всем за советы....

Открой для себя CPAN

Про Path::Tiny, не видел еще, спасибо.