Zamienianie na pusty ciąg znaków: nieoczekiwany wynik

Question

Dlaczego dwie drukowane liczby są różne?

#!/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>"; 

wyjściowa:

A: <110110110110111> 
B: <11111111111> 

Answer 1

Cytat man perlop:

Jeśli wzór ma wartość pusty ciąg, ostatni z powodzeniem wykonywane wyrażenie regularne jest używany zamiast.

próby wstawienia jednego udanego regex mecz przed drugim substytucji, aby zobaczyć, co się dzieje:

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

powiedziałbym, że to powinno być przestarzałe i ostrzegł o przez use warnings, trudno dostrzec korzyści .