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 stri
$var1 =~ s/(^\s*)(.*?)(\s*$)+/$2/;