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

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