[Perl] 用正規表示法做出trim的功能

trim的功能就是去掉前後多餘的空白

$var = " abc_ def_ ";
$var =~ s/^(s)+//; # 去前面空白
$var =~ s/(s)+$//; # 去後面空白
#$var結果="abc_ def_"