perl 去掉行头行尾的空格

分两步走: 
先去掉前面的: $a=~s/^ +//; 
在去掉后面的: $a=~s/ +$//;

一步就可以: 
s/(^ +| +$)//g;

#print substr($var,0,1).”\n”;