Perl无效的代码(正则表达式win)

无效的代码：

s/^\s+//;
s/\s+$//;        
s/\s+|\s+$//g;   #将开头，结尾的空白去掉