Recherche:

Tout à fait ... je me suis compliqué inutilement ...

Par contre, dans ce cas, il vaut mieux utiliser un quantificateur *, plutôt que +. En effet, dans le cas de "ze__123_456", (_ doublés) avec un...

my $var="ze_123_ABC_uuu_444";

$var =~ s/(_)(.*?)\1/$1$2+/;

print "$var\n";

Affichera
ze_123+ABC_uuu_444

Le \1 sert à dire que l'on veut une occurence du premier truc mémorisé par les...