Существует ли Perl-совместимое регулярное выражение для обрезки пробелов с обеих сторон строки?

Question

Есть ли способ сделать это в одну строку?

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

Другими словами, удалите все начальные и конечные пробелы из строки.

Answer 1

Или это: s/\A\s*|\s*\Z//g

Answer 2

$x =~ s/^\s*(.*?)\s*$/$1/;