Remove leading and trailing white space from a string

This is a routine task best done with two regexp's when using perl.

my $string = ' Mary had a little lamb. ';
$string =~ s/^\\s+//; #remove leading spaces
$string =~ s/\\s+$//; #remove trailing spaces
print $string;