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