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

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

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