Expresión regular de Perl: cómo reemplazar todo el carácter deseado excepto el primero

Question

Tengo una expresión regular que reemplaza todos los caracteres especiales con% (para buscar en la base de datos con LIKE). Se ve así:

$string =~ s/[^ a-zA-Z0-9]/%/g; 

Sin embargo no sé cómo cambiar esa expresión para reemplazar todos los caracteres especiales deseados a excepción de la primera de una cadena. Así que si mi cadena parezca

"&Hi I'm smart(yeah right...)" 

sería

"&Hi I%m smart%yeah right%%%%" 

(En este momento el primer '& también se sustituye).

¿Alguien puede ayudar?

Answer 1

Esto cambia todo pero la primera instancia de la diana partido en un símbolo de porcentaje:

{ 
    my $count = 0; 
    $string =~ s{([^ a-zA-Z0-9])}{$count++ ? "%" : $1}ge; 
} 

Answer 2

Se puede usar un look-behind assertion que requiere por lo menos un carácter:

s/(?<=.)[^ a-zA-Z0-9]/%/g; 

Answer 3

substr($string, 1) =~ s/[^ a-zA-Z0-9]/%/g; 

actualización: Lo anterior sólo funciona si el carácter especial es el primer carácter de la cadena. Las siguientes obras sin importar dónde se encuentra:

my $re = qr/[^ a-zA-Z0-9]/; 
my @parts = split(/($re)/, $string, 2); 
$parts[2] =~ s/$re/%/g if @parts == 3; 
$string = join('', @parts);