空の文字列による置換：予期しない結果

Question

2つの数字が異なるのはなぜですか？

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

出力：

A: <110110110110111> 
B: <11111111111> 

Answer 1

引用man perlopは：

パターンは空の文字列に評価された場合、最後に正常に実行 た正規表現が代わりに使用されています。

何が起こっているかを確認するために第2の置換の前に1個の成功した正規表現の一致を挿入しよう：

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

私は、これは非推奨とuse warningsによりについて警告しなければならないと言うだろう、それが利益を見ることは難しいです。