正则表达式 – 是否有一个Perl兼容的正则表达式从字符串的两边修剪空格？

有一种方法可以一行吗？

$x =~ s/^\s+//;
$x =~ s/\s+$//;

换句话说,从字符串中删除所有前导和尾随空格.

$x =~ s/^\s+|\s+$//g;

要么

s/^\s+//,s/\s+$// for $x;