perl是一种运行式脚本，所以在debug的时候，多用print，在后台看有没有输出相关的结果，来判断相应的错误。
部分perl正则表达式：
$gene =~/^LOC/ 以“LOC”开头的字符串
$gene =~/^[0-9]/ 以数字开头的字符串
$gene =~/^--/
if($gene =~/^A_[0-9]+_/){
print $gene . "\n";
next;
}以A_+数字_开头的字符串，然后就是print打印，看看有没有改变。
原文：http://www.cnblogs.com/tjuxqcui/p/5064869.html