Is there a Perl-compatible regular expression to trim whitespace from both sides of a string?

Question

Is there a way to do this in one line?

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

In other words, remove all leading and trailing whitespace from a string.

Answer 1

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

or

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