正则表达式原来也可以计数的

比如，比较等长（已对齐）字符串中不同的字符数。
$a="attggc";
$b="tttgac";
print (($a^$b)=~y/\0//c);

y///函数不但有tr那样的功能，还可以返回匹配的次数。/c匹配指定模式的补集。

Bio::Structure

Bio::Structure里面的东西还真不多。pod里最常见的解释就是：

nothing useful until I get symbolic references to do what I want.

Orz!
到cpan翻了一下1.5，发现除了几个有关二级结构的包还略有些内容，其它基本上都是空架子。sigh!

perlvar的实用主义？

Perl的预设变量里，居然有$a, $b!
无语了。纯实用主义啊！