修改文本
1、Perl中的替换表达式为：
$var =~ s/regex/replacement/
可以在replacement中使用$1等变量

2、Perl中<>表示一行文本

3、definded($val)查看一个变量是否有定义

4、lookaround：定位标识，定位到匹配文本位置之前或之后
lookahead(定位在前):(?=...)
lookback(定位在后):(?<=...)

5、/g选项表示global replacement，全部替换

6、s/(?<=\bJeff)(?=s\b)/''''/g
搜索一个位置，这个位置前面是Jeff，后面是s，然后在这个位置上加''''

7、s/(?=s\b)(?<=\b Jeff)/''''/g 和 s/(?<=\bJeff)(?=s\b)/''''/g 表达了同一个位置

8、给整数每三位加上一个逗号，比如123456789变成123,456,789
$pop =~ s/(?<=\d)(?=(\d\d\d)+$)/,/g;
或者
(?<=\d)(?=(?:\d\d\d+$)
其中多加了(?:...)表示不参与子匹配，更有效率，但相对复杂难懂
$pop =~ s/(?<=\d)(?=(\d\d\d)+(?!\d))/,/g;才是正确的，晕。原因是$，所以使用Negative Lookahead来替换

9、位置匹配的四种情况:
Type Regex Successful if the enclosed subexpression . . .
Positive Lookbehind (?<=......) successful if can match to the left
Negative Lookbehind (?<!......) successful if can not match to the left
Positive Lookahead (?=......) successful if can match to the right
Negative Lookahead (?!......) successful if can not match to the right