正規表現の後方参照の方法

Perl 5.10 から、後方参照の方法が追加された。

use 5.10.0;
my $a = "aefbbacde";
if ($a =~ m/(.)\1/) { # 今まではこう
  say "match $&";
}
if ($a =~ m/(.)\g{1}/) { # この書き方も出来るように。
  say "match $&";
}

\1 の書き方だと、パターンのリテラル部分と後方参照の指定の区別が付かなかった。（\1 と \11 の区別が付かなかった）ため追加されたようだ。