perl统计字符个数的程序错在哪里？

Question

这个脚本在$s是其他值时都正确，为何偏偏是“[”时出错呢？
#! /usr/bin/perl -w
use strict;
my $str="ATGCCCGGT[TAACCTCGA[GAGT";
my $s = "[";
my $i= $str=~ s/$s/$s/g;
print "$i\n";

Answer 1

正则没用对。用中括号扩起来。
#! /usr/bin/perl -w
use strict;
my $str="ATGCCCGGT[TAACCTCGA[GAGT";
my $s = "[";
my $i= $str=~ s/[$s]/$s/g;
print "$i\n";
print "$str\n";