substituir as guias de recuo por um número fixo de espaços por guia

É possível substituir apenas "guias iniciais" por um número definido de espaços por guia? Estou definindo uma guia inicial como aquela que é precedida apenas por tabulações ou espaços. Estou definindo uma guia inicial ou de recuo como uma que é precedida apenas por espaços em branco.

Eu tenho a seguinte linha no meu .nexrc, cribbed deste aqui . Ele percorre as linhas entre as linhas que contêm a marca ae a marca batravés de um filtro. que substitui as guias.

map \2 'a!'b pr -te2

No entanto, ele substitui bem as tabulações não iniciais com dois espaços, o que não é ideal, pois às vezes é necessária uma tabulação literal.

Existe uma maneira fácil e portátil de substituir as guias iniciais apenas com um número definido de espaços por guia?

O script perl a seguir (que pode ser reduzido a um one-liner) faz o trabalho de substituir as guias iniciais por uma largura fornecida na linha de comando, mas depende da disponibilidade do Perl e leva tempo quadrático (se o arquivo não consistir em nada mas abas).

#!/usr/bin/env perl

use strict;
use warnings;

my ($width) = @ARGV;
$width //= 2;
my $replacement = ' ' x $width;

while (<>) {
    while (s/^(\s*)\t/$1$replacement/g) { }
    print;
}

Aqui está um exemplo do que eu quero que aconteça. ^Irefere-se a um byte de tabulação e #é um marcador de largura zero para o início de uma linha. A linha abaixo é uma régua de bytes.

ANTES DA:

#^I^I ^Ia^Ib
# 1 23 45 67

DEPOIS (largura da guia de 2)

#       a^Ib
#12345678 90

DEPOIS (largura da guia de 4)

#             a^Ib
#12345678901234 56