$string =~ s/:/*/; #此时 $string="i*love:perl";
$string = "i:love:perl";
$string =~ s/:/*/g; #此时 $string="i*love*perl";
$string =~ tr/*/ /; #此时 $string="i love perl";
$string = "www22cgi44";
$string =~ s/(d+)/$1*2/e; # (/d+)代表 $string 中的一个或多个数字字符，将这些数字字符执行 *2 的操作，因此最后 $string 变成了 "www44cgi88"。
下面给出一个完整的例子：
#!/usr/bin/perl
print"请输入一个字符串!n";
$string = <STDIN>;; # <STIDN>;代表标准输入，会让使用者输入一字符串
chop($string); # 将$string最后一个换行的字符n删除掉
if($string =~ /perl/){
print("输入的字符串中有 perl 这个字符串!n";
}
如果输入的字符串含有 perl 这个字符串的话，就会显示后面的提示信息。
9.2 正则表达式中的常用模式
下面是正则表达式中的一些常用模式。
/pattern/ 结果
. 匹配除换行符以外的所有字符
x? 匹配 0 次或一次 x 字符串
x* 匹配 0 次或多次 x 字符串，但匹配可能的最少次数
x+ 匹配 1 次或多次 x 字符串，但匹配可能的最少次数
.* 匹配 0 次或一次的任何字符
.+ 匹配 1 次或多次的任何字符
{m} 匹配刚好是 m 个 的指定字符串
{m,n} 匹配在 m个 以上 n个 以下 的指定字符串
{m,} 匹配 m个 以上 的指定字符串
[] 匹配符合 [] 内的字符
[^] 匹配不符合 [] 内的字符
[0-9] 匹配所有数字字符
[a-z] 匹配所有小写字母字符
[^0-9] 匹配所有非数字字符
[^a-z] 匹配所有非小写字母字符
^ 匹配字符开头的字符
$ 匹配字符结尾的字符
d 匹配一个数字的字符，和 [0-9] 语法一样
d+ 匹配多个数字字符串，和 [0-9]+ 语法一样
D 非数字，其他同 d
D+ 非数字，其他同 d+
w 英文字母或数字的字符串，和 [a-zA-Z0-9] 语法一样
w+ 和 [a-zA-Z0-9]+ 语法一样
W 非英文字母或数字的字符串，和 [^a-zA-Z0-9] 语法一样
W+ 和 [^a-zA-Z0-9]+ 语法一样
s 空格，和 [ntrf] 语法一样
s+ 和 [ntrf]+ 一样
S 非空格，和 [^ntrf] 语法一样
S+ 和 [^ntrf]+ 语法一样
b 匹配以英文字母,数字为边界的字符串
B 匹配不以英文字母,数值为边界的字符串
a|b|c 匹配符合a字符 或是b字符 或是c字符 的字符串
abc 匹配含有 abc 的字符串
(pattern) () 这个符号会记住所找寻到的字符串，是一个很实用的语法。第一个 () 内所找到的字符串变成 $1 这个变量或是 1 变量，第二个 () 内所找到的字符串变成 $2 这个变量或是 2 变量，以此类推下去。
/pattern/i i 这个参数表示忽略英文大小写，也就是在匹配字符串的时候，不考虑英文的大小写问题。
如果要在 pattern 模式中找寻一个特殊字符，如 "*"，则要在这个字符前加上 符号，这样才会让特殊字符失效
