注：本文内容为摘自Mastering regular expressions（《精通正则表达式》）的笔记。
1.$var =～ m／regex/尝试用正则表达式来匹配保存在变量中的文本，并返回表示能否匹配的布尔值。与之类似的结构$var =～ s／regex/replacement/则更进一步：入股正则表达式能够匹配$var中的某段文本，则将这段匹配的文本替换为replacement。
2.／g：全局替换，它告诉s/.../.../在第一次替换完成之后继续搜索更多的匹配文本。
3.实现若第三位不为0则保留三位小数，否则保留两位小数：
／b匹配一个数字。
4.自动编辑操作：
5.perl提供了<>，可以每次读入一行数据，相当于getline（）函数。
6.if （$line =~ m/^Subject:(.*)/i) {
$subject = $1;
}