<p>Is there a way to do this in one line?</p>

<pre><code>$x =~ s/^\s+//;
$x =~ s/\s+$//;
</code></pre>

<p>In other words, remove all leading and trailing whitespace from a string.</p>

Here you go:
```
$x =~ s/\A\s*(.*?)\s*\z/$1/;
```