perl去除字符串前后空格的方法，供大家学习参考。
使用正则表达式
分两步走:
先去掉前面的: $a=~s/^ +//;
再去掉后面的: $a=~s/ +$//;
一步就可以：
s/(^s+|s+$)//g;
删除字符串末尾的换行：
chomp函数通常会删除变量里包含的字符串尾部的换行符。它是chop函数的一个略微安全些的版本，因为它对没有换行符的字符串没有影响。更准确地说，它根据了解$/的当前值删除字符串终止符，而不只是最后一个字符。和chop不同，chomp返回删除的字符数量。
作者：iTech
出处：http://itech.cnblogs.com/