分组
例：($fruit,$color)=/(.*)/sis/s(.*)/;
每个加括号的值都是列表的返回值
这个运算符并不进行赋值，它只是取出右边的运算符，并使它对左边的变量进行操作
$field =~ s/^/s+|/s+$//g;
-去掉行头行尾的空格
不区分大小写
next if ($Var=~ /^AbC/i);
当将括号用于perl的正则表达式时，由每个带括号的表达式进行匹配的目标字符串将记录在$1,$2,$3...中
如，/(/d{3})-(/d{4})-(/d{5})/，将分别记入$1,$2,$3中