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