Perlのプログラムの中の文字列定義を数えるための正規表現 多分動くはず・・・ というか、qq ah\agea もOKとかびっくりだよ。 もう少しスマートにならないもんか。 # テスト。文字列は9個ある my $string = <<'_X_'; print('hoge :' . "$hoge"); print('aaa …