正規表現であるかどうか分からない部分を$1、$2…で使いたいときに
perl -w でUse of uninitialized value…
と怒られないようにするにはどうしたらいいのでしょうか…