#判断一个变量是否匹配一个空字符串,m!pattern! 与 m/pattern/
if($str =~ m!^\s*$!)
如果仅仅判断字符串为空,可以使用if($str eq "")
# 判断$doc变量是否与给定模式相匹配,模式字符串包含<span id="status">字符,\s表示包含空白,[^<>]*表示匹配不为字符<及>的任何字符。
# 其中的括号按顺序可以用$1, $2...进行引用。 最后的s表示跨行匹配,g表示全局匹配。
$doc =~ m!<span id="status">\s([^<>]*)!sg
# $str便获取了上面模式匹配小括号中的内容。
$str = $1;
原文地址:http://www.cnblogs.com/morris-tech/p/3864291.html