Sostituzione con stringa vuota: risultato inatteso

Question

Perché i due numeri stampati sono diversi?

#!/usr/bin/env perl 
use warnings; 
use 5.10.1; 

my $sep = ''; 
my $number = 110110110110111; 

$number =~ s/(\d)(?=(?:\d{3})+\b)/$1$sep/g; 
say "A: <$number>"; 

$number =~ s/\Q$sep\E//g; 
say "B: <$number>"; 

uscita:

A: <110110110110111> 
B: <11111111111> 

Answer 1

Quota man perlop:

Se il modello restituisce la stringa vuota, l'ultimo successo espressione regolare eseguito viene usato preferibilmente.

tenta di inserire un match regex successo prima della seconda sostituzione per vedere cosa sta succedendo:

(my $foo = '1') =~ s/1/x/; # successfully match “1” 
$number =~ s///g;   # now you’re deleting all 1s 
say "B: <$number>";  # <0000> 

direi che questo dovrebbe essere deprecato e ha messo in guardia da use warnings, è difficile vedere i benefici .